loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.195, 2021/10/25 15:23:34	version 1.197, 2021/10/26 14:12:50
Line 389 sub sso_login {	Line 389 sub sso_login {
}	}
if ($env{'request.deeplink.login'}) {	if ($env{'request.deeplink.login'}) {
if ($linkprot) {	if ($linkprot) {
$env{'request.linkprot'} = $linkprot);	$env{'request.linkprot'} = $linkprot;
} elsif ($linkkey ne '') {	} elsif ($linkkey ne '') {
$env{'request.linkkey'} = $linkkey);	$env{'request.linkkey'} = $linkkey;
}	}
}	}
$env{'request.sso.login'} = 1;	$env{'request.sso.login'} = 1;
Line 513 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);
}	}