18 |
$server_name ||= $ENV{SERVER_NAME}; |
$server_name ||= $ENV{SERVER_NAME}; |
19 |
$server_port ||= $ENV{SERVER_PORT}; |
$server_port ||= $ENV{SERVER_PORT}; |
20 |
-$server_port = '443'; |
-$server_port = '443'; |
21 |
+$server_port ( $server_name eq 'localhost' ) ? '80' : '443'; |
+$server_port = ( $server_name eq 'localhost' ) ? '80' : '443'; |
22 |
my $AUTH_DOMAIN = $server_name; |
my $AUTH_DOMAIN = $server_name; |
23 |
my $back = $q->cookie($at->back_cookie_name) if $at->back_cookie_name; |
my $back = $q->cookie($at->back_cookie_name) if $at->back_cookie_name; |
24 |
$back ||= $q->param($at->back_arg_name) if $at->back_arg_name; |
$back ||= $q->param($at->back_arg_name) if $at->back_arg_name; |