loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.188, 2021/10/06 19:28:55	version 1.190, 2021/10/08 14:45:45
Line 62 sub handler {	Line 62 sub handler {
(!$env{'form.ltoken'}) && (!$env{'form.linkkey'})) {	(!$env{'form.ltoken'}) && (!$env{'form.linkkey'})) {
&Apache::lonacc::get_posted_cgi($r,['linkkey']);	&Apache::lonacc::get_posted_cgi($r,['linkkey']);
}	}
	if ($env{'form.firsturl'} eq '/adm/logout') {
	delete($env{'form.firsturl'});
	}

# -- check if they are a migrating user	# -- check if they are a migrating user
if (defined($env{'form.token'})) {	if (defined($env{'form.token'})) {
Line 807 HEADER	Line 810 HEADER
$ssologin = $samlssourl;	$ssologin = $samlssourl;
}	}
if ($env{'form.firsturl'} ne '') {	if ($env{'form.firsturl'} ne '') {
my $querystring;	my $querystring = 'origurl=';
if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {	if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
$querystring = &uri_escape_utf8($env{'form.firsturl'});	$querystring .= &uri_escape_utf8($env{'form.firsturl'});
} else {	} else {
$querystring = &uri_escape($env{'form.firsturl'});	$querystring .= &uri_escape($env{'form.firsturl'});
}	}
$querystring = &HTML::Entities::encode($querystring,"'");	$querystring = &HTML::Entities::encode($querystring,"'");
$ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;	$ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;