loncom/auth/blockedaccess.pm - diff

Return to blockedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;