Fix regexp in test scrips (#1415)

_example/test/cas.pl

@@ -7,9 +7,9 @@ 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 $portal_url     = "$protocol://auth.$domain$port";
 my $cas_url        = "$portal_url/cas";
 my $cas            = new AuthCAS( casUrl => $cas_url );
 my $cgi            = new CGI;

_example/test/index.pl

@@ -15,10 +15,10 @@ 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";
+my $portal_url  = "$protocol://auth.$domain$port";
+my $manager_url = "$protocol://manager.$domain$port";
 
 # CSS
 my $css = <<EOT;

_example/test/oauth2.pl

@@ -19,9 +19,9 @@ 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 $portal_url        = "$protocol://auth.$domain$port";
 my $client_id         = "lemonldap";
 my $client_secret     = "secret";
 my $authorization_uri = "$portal_url/oauth2/authorize";