Return to lontrans.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.22, 2018/04/21 20:34:44 | version 1.23, 2018/05/08 15:31:22 |
---|---|
Line 91 sub handler { | Line 91 sub handler { |
} | } |
} | } |
my $host = $r->headers_in->get('Host'); | my $host = $r->headers_in->get('Host'); |
if ($host) { | if ($r->is_initial_req() || !$host) { |
$r->internal_redirect($realuri); | |
return OK; | |
} else { | |
my $protocol = 'http'; | my $protocol = 'http'; |
if ($r->get_server_port == 443) { | if ($r->get_server_port == 443) { |
$protocol = 'https'; | $protocol = 'https'; |