loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.176, 2020/03/04 17:55:39	version 1.178, 2020/08/10 03:22:54
Line 609 sub handler {	Line 609 sub handler {
}	}
}	}
if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) {	if ($requrl=~m{^/+tiny/+$match_domain/+\w+$}) {
return OK;	if ($env{'user.name'} eq 'public' &&
	$env{'user.domain'} eq 'public') {
	$env{'request.firsturl'}=$requrl;
	return FORBIDDEN;
	} else {
	return OK;
	}
}	}
# ---------------------------------------------------------------- Check access	# ---------------------------------------------------------------- Check access
my $now = time;	my $now = time;
if ($requrl !~ m{^/(?:adm\|public\|prtspool)/}	if ($requrl !~ m{^/(?:adm\|public\|(?:prt\|zip)spool)/}
\|\| $requrl =~ /^\/adm\/.*\/(smppg\|bulletinboard)(\?\|$ )/x) {	\|\| $requrl =~ /^\/adm\/.*\/(smppg\|bulletinboard)(\?\|$ )/x) {
my $access=&Apache::lonnet::allowed('bre',$requrl);	my $access=&Apache::lonnet::allowed('bre',$requrl);
if ($handle eq '') {	if ($handle eq '') {