loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.60.2.1, 2005/02/21 18:22:04	version 1.62, 2005/02/08 01:20:11
Line 52 sub handler {	Line 52 sub handler {
my $r = shift;	my $r = shift;
my $requrl=$r->uri;	my $requrl=$r->uri;
my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
if ($r->header_in('User-Agent')=~/NSDL\_Search\_Bot/) {
return OK;
}
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $cookie;
if ($lonid) {	if ($lonid) {
Line 148 sub handler {	Line 145 sub handler {
"$requrl:bre:1:1:Invalid Access";	"$requrl:bre:1:1:Invalid Access";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
my ($map,$mid,$murl)=split(/\_\_\_/,$symb);	if ($symb) {
&Apache::lonnet::symblist($map,$murl => $mid,	my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
'last_known' => $murl);	&Apache::lonnet::symblist($map,$murl => $mid,
	'last_known' => $murl);
	}
}	}
$ENV{'request.symb'}=$symb;	$ENV{'request.symb'}=$symb;
&Apache::lonnet::courseacclog($symb);	&Apache::lonnet::courseacclog($symb);