loncom/auth/switchserver.pm - diff

Return to switchserver.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.54, 2021/05/03 15:27:43	version 1.55, 2021/05/04 18:47:37
Line 29	Line 29
package Apache::switchserver;	package Apache::switchserver;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common :remotehost);
use Apache::lonnet;	use Apache::lonnet;
use Digest::MD5 qw(md5_hex);	use Digest::MD5 qw(md5_hex);
use CGI::Cookie();	use CGI::Cookie();
Line 111 sub handler {	Line 111 sub handler {
$env{'user.name'});	$env{'user.name'});
if (! $env{'form.otherserver'}) {	if (! $env{'form.otherserver'}) {
$env{'form.otherserver'} =	$env{'form.otherserver'} =
&Apache::lonnet::spareserver(30000,undef,1);	&Apache::lonnet::spareserver($r,30000,undef,1);
}	}
$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});	$switch_to=&Apache::lonnet::hostname($env{'form.otherserver'});
}	}
Line 215 sub handler {	Line 215 sub handler {
} else {	} else {
$logmsg .= " (no role)";	$logmsg .= " (no role)";
}	}
my $ip = &Apache::lonnet::get_requestor_ip();	my $ip = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP);
$logmsg .= ' '.$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);