version 1.15, 2016/07/25 19:49:45
|
version 1.16, 2016/08/16 20:17:54
|
Line 42 sub handler {
|
Line 42 sub handler {
|
my $host = $r->headers_in->get('Host'); |
my $host = $r->headers_in->get('Host'); |
if ($host) { |
if ($host) { |
unless ($host =~ /^internal\-/) { |
unless ($host =~ /^internal\-/) { |
my $c = $r->connection; |
my $remote_ip = $r->get_remote_host(); |
if (ref($c)) { |
my $lonhost = $r->dir_config('lonHostID'); |
my $remote_ip = $c->remote_ip; |
if (&redirect_raw($remote_ip,$lonhost)) { |
my $lonhost = $r->dir_config('lonHostID'); |
my $location = 'https://internal-'.$host.$r->uri; |
if (&redirect_raw($remote_ip,$lonhost)) { |
$r->headers_out->set(Location => $location); |
my $location = 'https://internal-'.$host.$r->uri; |
return REDIRECT; |
$r->headers_out->set(Location => $location); |
|
return REDIRECT; |
|
} |
|
} |
} |
} |
} |
} |
} |