loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.194, 2021/08/16 15:25:44	version 1.196, 2021/10/25 15:26:27
Line 388 sub sso_login {	Line 388 sub sso_login {
$env{'request.deeplink.login'} = $r->uri;	$env{'request.deeplink.login'} = $r->uri;
}	}
if ($env{'request.deeplink.login'}) {	if ($env{'request.deeplink.login'}) {
&Apache::lonnet::appenv({'request.deeplink.login' => $r->uri});
if ($linkprot) {	if ($linkprot) {
&Apache::lonnet::appenv({'request.linkprot' => $linkprot});	$env{'request.linkprot'} = $linkprot);
} elsif ($linkkey ne '') {	} elsif ($linkkey ne '') {
&Apache::lonnet::appenv({'request.linkkey' => $linkkey});	$env{'request.linkkey'} = $linkkey);
}	}
}	}
$env{'request.sso.login'} = 1;	$env{'request.sso.login'} = 1;
Line 514 sub handler {	Line 513 sub handler {
if ($handle eq '') {	if ($handle eq '') {
unless ((($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) \|\|	unless ((($requrl eq '/adm/switchserver') && (!$r->is_initial_req())) \|\|
($requrl =~ m{^/public/$match_domain/$match_courseid/syllabus}) \|\|	($requrl =~ m{^/public/$match_domain/$match_courseid/syllabus}) \|\|
($requrl =~ m{^/adm/help/}) \|\|	($requrl =~ m{^/adm/help/}) \|\| ($requrl eq '/adm/sso') \|\|
($requrl =~ m{^/res/$match_domain/$match_username/})) {	($requrl =~ m{^/res/$match_domain/$match_username/})) {
$r->log_reason("Cookie not valid", $r->filename);	$r->log_reason("Cookie not valid", $r->filename);
}	}