version 1.174, 2018/12/29 23:24:52
|
version 1.175, 2019/01/27 16:02:43
|
Line 102 use Apache::loncommon();
|
Line 102 use Apache::loncommon();
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::restrictedaccess(); |
use Apache::restrictedaccess(); |
use Apache::blockedaccess(); |
use Apache::blockedaccess(); |
|
use Apache::lonprotected(); |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
Line 634 sub handler {
|
Line 635 sub handler {
|
&Apache::blockedaccess::setup_handler($r); |
&Apache::blockedaccess::setup_handler($r); |
return OK; |
return OK; |
} |
} |
|
if ($access eq 'D') { |
|
&Apache::lonprotected::setup_handler($r); |
|
return OK; |
|
} |
if (($access ne '2') && ($access ne 'F')) { |
if (($access ne '2') && ($access ne 'F')) { |
if ($requrl =~ m{^/res/}) { |
if ($requrl =~ m{^/res/}) { |
$access = &Apache::lonnet::allowed('bro',$requrl); |
$access = &Apache::lonnet::allowed('bro',$requrl); |