loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.33, 2015/01/08 21:18:29	version 1.34, 2015/01/22 22:45:06
Line 160 sub handler {	Line 160 sub handler {
my %temp=('switchserver' => time.':'.$env{'form.otherserver'},	my %temp=('switchserver' => time.':'.$env{'form.otherserver'},
$env{'form.role'});	$env{'form.role'});
&Apache::lonnet::put('email_status',\%temp);	&Apache::lonnet::put('email_status',\%temp);
	my $logmsg = "Switch Server to $env{'form.otherserver'}";
	if ($env{'form.role'}) {
	$logmsg .= " with role: $env{'form.role'}";
	} else {
	$logmsg .= " (no role)";
	}
	$logmsg .= ' '.$ENV{'REMOTE_ADDR'};
&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},	&Apache::lonnet::log($env{'user.domain'},$env{'user.name'},
$env{'user.home'},	$env{'user.home'},$logmsg);
"Switch Server to $env{'form.otherserver'} with role $env{'form.role'} $ENV{'REMOTE_ADDR'}");

&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');