loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

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;
}
}	}
}	}
}	}