loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25.2.3, 2020/10/23 20:58:08	version 1.25.2.4, 2021/01/04 03:52:32
Line 234 sub handler {	Line 234 sub handler {
if (!defined($data{'username'}) \|\| !defined($data{'domain'})) {	if (!defined($data{'username'}) \|\| !defined($data{'domain'})) {
return &goto_login($r);	return &goto_login($r);
}	}
if ($data{'ip'} ne $ENV{'REMOTE_ADDR'}) {	my $ip = &Apache::lonnet::get_requestor_ip();
	if ($data{'ip'} ne $ip) {
&Apache::lonnet::logthis('IP change when session migration requested -- was: '.	&Apache::lonnet::logthis('IP change when session migration requested -- was: '.
$data{'ip'}.'; now: '.$ENV{'REMOTE_ADDR'}.' for '.$data{'username'}.':'.$data{'domain'});	$data{'ip'}.'; now: '.$ip.' for '.$data{'username'}.':'.$data{'domain'});
return &ip_changed($r,$data{'domain'},$data{'server'},\%data);	return &ip_changed($r,$data{'domain'},$data{'server'},\%data);
}	}