loncom/auth/publiccheck.pm - diff

Return to publiccheck.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.11, 2006/11/23 01:49:41	version 1.14, 2007/04/11 21:36:58
Line 37 use Apache::lonlocal;	Line 37 use Apache::lonlocal;
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
use Apache::lonacc();	use Apache::lonacc();
	use LONCAPA();

sub handler {	sub handler {
my $r = shift;	my $r = shift;

my $requrl=$r->uri;	my $requrl=$r->uri;
	if (&Apache::lonnet::is_domainimage($requrl)) {
	return OK;
	}
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
if ($lonid) {	if ($lonid) {
Line 72 sub handler {	Line 76 sub handler {
} elsif ($requrl eq '/adm/restrictedaccess') {	} elsif ($requrl eq '/adm/restrictedaccess') {
&process_public($r,$requrl);	&process_public($r,$requrl);
return OK;	return OK;
	} elsif ($requrl eq '/adm/blockedaccess') {
	&process_public($r,$requrl);
	return OK;
}	}
return DECLINED;	return DECLINED;
}	}