loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.16, 2009/01/14 15:36:42	version 1.22, 2013/12/13 01:34:38
Line 44 sub handler {	Line 44 sub handler {
my $requrl=$r->uri;	my $requrl=$r->uri;

if (&Apache::lonnet::is_domainimage($requrl)) {	if (&Apache::lonnet::is_domainimage($requrl)) {
	if (($r->user() eq '') && ($Apache::lonnet::apache >= 2.4)) {
	$r->user('public');
	}
return OK;	return OK;
}	}

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

Line 63 sub handler {	Line 69 sub handler {
if ($requrl=~m\|^/public/\|	if ($requrl=~m\|^/public/\|
\|\| $requrl=~m\|^/adm/help/.*\.hlp$\|	\|\| $requrl=~m\|^/adm/help/.*\.hlp$\|
\|\| $requrl=~m\|^/adm/[^/]+/[^/]+/aboutme/portfolio$\|	\|\| $requrl=~m\|^/adm/[^/]+/[^/]+/aboutme/portfolio$\|
\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {	\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')
	\|\| $requrl=~m\|^/adm/blockingstatus/.*$\|) {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
} elsif (&Apache::lonnet::is_portfolio_url($requrl)) {	} elsif (&Apache::lonnet::is_portfolio_url($requrl)) {
Line 80 sub handler {	Line 87 sub handler {
} elsif ($requrl eq '/adm/blockedaccess') {	} elsif ($requrl eq '/adm/blockedaccess') {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
}	}
return DECLINED;	return DECLINED;
}	}