loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.18, 2015/09/18 11:43:05	version 1.21, 2018/12/24 14:29:48
Line 50 sub handler {	Line 50 sub handler {
return OK;	return OK;
}	}

if ($r->uri() =~ m{^/res/adm/pages/reactionresponse/[^/]+\.html$}) {
if ($r->user() eq '') {
$r->user('public:public');
}
return OK;
}

if ($r->auth_type() ne 'LONCAPA') {	if ($r->auth_type() ne 'LONCAPA') {
return DECLINED;	return DECLINED;
}	}
Line 106 sub handler {	Line 99 sub handler {
}	}
if (($fail == FORBIDDEN) &&	if (($fail == FORBIDDEN) &&
(($r->uri eq '/adm/email') \|\| ($r->uri eq '/adm/preferences') \|\|	(($r->uri eq '/adm/email') \|\| ($r->uri eq '/adm/preferences') \|\|
($r->uri eq '/adm/requestcourse'))) {	($r->uri eq '/adm/requestcourse') \|\|
	(($r->is_initial_req()) && ($r->uri =~ m{^/tiny/[\w\-.]+/\w+$})))) {
$env{'form.firsturl'} = $r->uri;	$env{'form.firsturl'} = $r->uri;
}	}
return $fail;	return $fail;