loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2007/10/02 01:09:59	version 1.20, 2013/02/05 21:32:45
Line 42 sub handler {	Line 42 sub handler {
my $r = shift;	my $r = shift;

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;
	}

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

Line 58 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 75 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;
}	}