loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.55, 2021/11/17 00:44:47	version 1.57, 2022/02/06 21:37:04
Line 706 sub handler {	Line 706 sub handler {
my ($handle,$expirepub);	my ($handle,$expirepub);
$handle = &Apache::lonnet::check_for_valid_session($r);	$handle = &Apache::lonnet::check_for_valid_session($r);

# For "public user" - remove any exising "public" cookie so actual user is ogged in.	# For "public user" - remove any existing "public" cookie so actual user is logged in.
if ($handle) {	if ($handle) {
if ($handle=~/^publicuser\_/) {	if ($handle=~/^publicuser\_/) {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
Line 739 sub handler {	Line 739 sub handler {
}	}
}	}
if ($data{'linkprot'} ne '') {	if ($data{'linkprot'} ne '') {
	if (($env{'user.name'} ne $data{'username'}) \|\|
	($env{'user.domain'} ne $data{'domain'})) {
	my %linkprot_env;
	foreach my $item ('linkprot','deeplink.login') {
	if ($data{$item}) {
	$linkprot_env{'request.'.$item} = $data{$item};
	}
	}
	&logout($r,$ip,$handle,\%data,\%linkprot_env);
	return OK;
	}
&Apache::lonnet::appenv({'request.linkprot' => $data{'linkprot'}});	&Apache::lonnet::appenv({'request.linkprot' => $data{'linkprot'}});
if ($env{'request.linkkey'}) {	if ($env{'request.linkkey'}) {
&Apache::lonnet::delenv('request.linkkey');	&Apache::lonnet::delenv('request.linkkey');