loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.17, 2009/09/25 13:51:45	version 1.20, 2013/02/05 21:32:45
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 '') {
	$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 '') {
	$r->user('public');
	}
return OK;	return OK;
}	}

Line 64 sub handler {	Line 70 sub handler {
\|\| $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/.*$\|) {	\|\| $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 81 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;
}	}