version 1.1, 2006/12/11 14:06:04
|
version 1.2, 2006/12/11 18:59:21
|
Line 27
|
Line 27
|
package Apache::blockedaccess; |
package Apache::blockedaccess; |
|
|
use strict; |
use strict; |
use lib '/home/httpd/lib/perl/'; |
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 37 sub handler {
|
Line 36 sub handler {
|
my $r = shift; |
my $r = shift; |
my $origurl = $r->uri; |
my $origurl = $r->uri; |
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); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |