loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2014/01/05 11:30:06	version 1.20, 2018/11/25 02:49:26
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# checks for a cokkie to authenticate a user	# checks for a cookie to authenticate a user
#	#
# $Id$	# $Id$
#	#
Line 38 sub handler {	Line 38 sub handler {

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

if (&Apache::lonnet::is_domainimage($r->uri)) {	if (&Apache::lonnet::is_domainimage($r->uri)) {
if ($r->user() eq '') {	if ($r->user() eq '') {
$r->user('public');	$r->user('public:public');
}	}
return OK;	return OK;
}	}
Line 66 sub handler {	Line 66 sub handler {
&& $env{'user.domain'} eq 'public') {	&& $env{'user.domain'} eq 'public') {
if ($env{'request.publicaccess'} ) {	if ($env{'request.publicaccess'} ) {
if ($r->user() eq '') {	if ($r->user() eq '') {
$r->user('public');	$r->user('public:public');
}	}
return OK;	return OK;
} else {	} else {
Line 99 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->uri =~ m{^/tiny/[\w\-.]+/\w+$}))) {
$env{'form.firsturl'} = $r->uri;	$env{'form.firsturl'} = $r->uri;
}	}
return $fail;	return $fail;