Commit 9f72caa5 authored by Clément OUDOT's avatar Clément OUDOT

Regexp (#1415)

parent 231a0246
......@@ -7,7 +7,7 @@ use AuthCAS;
# Configuration
my $host = $ENV{HTTP_HOST};
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
my $protocol = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
my $portal_url = "$protocol://auth.$domain$port";
my $cas_url = "$portal_url/cas";
......
......@@ -15,7 +15,7 @@ my $color = $cgi->param("color") || "#ddd";
# Local parameters
my $host = $ENV{HTTP_HOST};
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
my $protocol = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
my $portal_url = "$protocol://auth.$domain$port";
my $manager_url = "$protocol://manager.$domain$port";
......
......@@ -19,7 +19,7 @@ use Digest::SHA
# Configuration
#==============================================================================
my $host = $ENV{HTTP_HOST};
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]*?)(:\d+)?/ );
my ( $domain, $port ) = ( $host =~ /\w+\.([^:]+)(:\d+)?/ );
my $protocol = ( $ENV{HTTPS} =~ /^on$/i ) ? "https" : "http";
my $portal_url = "$protocol://auth.$domain$port";
my $client_id = "lemonldap";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment