loncom/auth/blockedaccess.pm - diff

Return to blockedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2020/09/28 00:10:27	version 1.6, 2020/10/01 10:16:33
Line 42 sub handler {	Line 42 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

&Apache::lonlocal::get_language_handle($r);	&Apache::lonlocal::get_language_handle($r);
	my $ver_origurl = $r->uri;
my $origurl = &Apache::lonnet::deversion($r->uri);	my $origurl = &Apache::lonnet::deversion($r->uri);
my ($blocked,$blocktext);	my ($blocked,$blocktext);

Line 55 sub handler {	Line 56 sub handler {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $symb = $env{'request.symb'};	my $symb = $env{'request.symb'};
	my $url = $origurl;
	# If no symb, and url is on not map, check for referrer
	unless (($symb) \|\| &Apache::lonnet::is_on_map($url) \|\| ($origurl eq '/adm/blockedaccess')) {
	my $refuri = $env{'httpref.'.$origurl} \|\| $env{'httpref.'.$ver_origurl};
	if ($refuri) {
	$url = $refuri;
	}
	}
($blocked,$blocktext) =	($blocked,$blocktext) =
&Apache::loncommon::blocking_status('docs',$cnum,$cdom,$origurl,1,$symb,'blockedaccess');	&Apache::loncommon::blocking_status('docs',$cnum,$cdom,$url,1,$symb,'blockedaccess');
}	}
}	}
if ($blocked) {	if ($blocked) {