|
version 1.6, 2020/10/01 10:16:33
|
version 1.7, 2021/11/30 15:55:40
|
|
Line 44 sub handler {
|
Line 44 sub handler {
|
| &Apache::lonlocal::get_language_handle($r); |
&Apache::lonlocal::get_language_handle($r); |
| my $ver_origurl = $r->uri; |
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,$clientip); |
| |
$clientip = &Apache::lonnet::get_requestor_ip($r); |
| |
|
| if (&Apache::lonnet::is_portfolio_url($origurl)) { |
if (&Apache::lonnet::is_portfolio_url($origurl)) { |
| my ($type,$udom,$uname,$file_name,$group) = |
my ($type,$udom,$uname,$file_name,$group) = |
| &Apache::lonnet::parse_portfolio_url($origurl); |
&Apache::lonnet::parse_portfolio_url($origurl); |
| ($blocked,$blocktext) = |
($blocked,$blocktext) = |
| &Apache::loncommon::blocking_status('port',$uname,$udom); |
&Apache::loncommon::blocking_status('port',$clientip,$uname,$udom); |
| } else { |
} else { |
| if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
| my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
Line 65 sub handler {
|
Line 66 sub handler {
|
| } |
} |
| } |
} |
| ($blocked,$blocktext) = |
($blocked,$blocktext) = |
| &Apache::loncommon::blocking_status('docs',$cnum,$cdom,$url,1,$symb,'blockedaccess'); |
&Apache::loncommon::blocking_status('docs',$clientip,$cnum,$cdom,$url,1,$symb,'blockedaccess'); |
| } |
} |
| } |
} |
| if ($blocked) { |
if ($blocked) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to blockedaccess.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth