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.3, 2009/02/13 17:20:26
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Information about blocking status for Portfolio files	# Information about blocking status for Portfolio files
#	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 27	Line 29
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 38 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;