loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.51, 2020/10/22 19:23:22	version 1.54, 2021/05/03 15:27:43
Line 123 sub handler {	Line 123 sub handler {
if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') {	if ($Apache::lonnet::protocol{$env{'form.otherserver'}} eq 'https') {
$protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}};	$protocol = $Apache::lonnet::protocol{$env{'form.otherserver'}};
}	}
	unless ($env{'form.otherserver'} eq $r->dir_config('lonHostID')) {
	my $alias = &Apache::lonnet::use_proxy_alias($r,$env{'form.otherserver'});
	$switch_to = $alias if ($alias ne '');
	}
}	}

if ($env{'user.name'} eq 'public'	if ($env{'user.name'} eq 'public'
Line 211 sub handler {	Line 215 sub handler {
} else {	} else {
$logmsg .= " (no role)";	$logmsg .= " (no role)";
}	}
$logmsg .= ' '.$ENV{'REMOTE_ADDR'};	my $ip = &Apache::lonnet::get_requestor_ip();
	$logmsg .= ' '.$ip;
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},	&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
$env{'user.home'},$logmsg);	$env{'user.home'},$logmsg);

Line 256 sub handler {	Line 261 sub handler {
$otherbalcookie = $env{'request.balancercookie'};	$otherbalcookie = $env{'request.balancercookie'};
}	}

my %info=('ip' => $ENV{'REMOTE_ADDR'},	my %info=('ip' => $ip,
'domain' => $env{'user.domain'},	'domain' => $env{'user.domain'},
'username' => $env{'user.name'},	'username' => $env{'user.name'},
'home' => $env{'user.home'},	'home' => $env{'user.home'},