loncom/auth/lonipcheck.pm - diff

Return to lonipcheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.1, 2008/09/05 17:43:31	version 1.2, 2017/12/22 02:00:53
Line 51 sub handler {	Line 51 sub handler {
if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {	if (&Apache::lonnet::allowed('bre',$r->uri) eq 'F') {
return DECLINED;	return DECLINED;
}	}
	if (($r->uri =~ /ext\.tool$/) &&
	(&Apache::lonnet::EXT('resource.0.gradable',$env{'request.symb'}) =~ /^yes$/i)) {
	return DECLINED;
	}
my ($status,$msg)=&ip_access_check();	my ($status,$msg)=&ip_access_check();
if ($status ne 'OPEN') {	if ($status ne 'OPEN') {
$r->set_handlers('PerlHandler'=>undef);	$r->set_handlers('PerlHandler'=>undef);