loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25, 2016/12/05 00:51:43	version 1.25.2.1, 2019/08/01 15:38:36
Line 171 sub ip_changed {	Line 171 sub ip_changed {
}	}
}	}
}	}
	unless ($hosthere) {
	if (($dataref->{'balancer'}) && ($dataref->{'balcookie'})) {
	&Apache::lonnet::delbalcookie($dataref->{'balcookie'},$dataref->{'balancer'});
	}
	}
}	}
if ($dataref->{'sso.login'}) {	if ($dataref->{'sso.login'}) {
$url .= '/adm/roles';	$url .= '/adm/roles';
Line 244 sub handler {	Line 249 sub handler {
if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r,$udom); }	if ($home =~ /(con_lost\|no_such_host)/) { return &goto_login($r,$udom); }

my $extra_env = &sso_check(\%data);	my $extra_env = &sso_check(\%data);
	if (($data{'balancer'}) && ($data{'server'}) && ($data{'balcookie'})) {
	if (ref($extra_env) eq 'HASH') {
	$extra_env->{'request.balancercookie'} = $data{'server'}.':'.$data{'balcookie'};
	} else {
	$extra_env = { 'request.balancercookie' => $data{'server'}.':'.$data{'balcookie'} };
	}
	}

my %form;	my %form;
if ($data{'symb'} ne '') {	if ($data{'symb'} ne '') {