loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.54, 2004/12/17 19:43:19	version 1.57, 2004/12/28 20:18:38
Line 138 sub handler {	Line 138 sub handler {
}	}
} else {	} else {
$symb=&Apache::lonnet::symbread($requrl);	$symb=&Apache::lonnet::symbread($requrl);
	if (&Apache::lonnet::is_on_map($requrl) &&
	!&Apache::lonnet::symbverify($symb,$requrl)) {
	$r->log_reason('Invalid symb for '.$requrl.': '.
	$symb);
	$ENV{'user.error.msg'}=
	"$requrl:bre:1:1:Invalid Access";
	return HTTP_NOT_ACCEPTABLE;
	}
my ($map,$mid,$murl)=split(/\_\_\_/,$symb);	my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
&Apache::lonnet::symblist($map,$murl => $mid,	&Apache::lonnet::symblist($map,$murl => $mid,
'last_known' => $murl);	'last_known' => $murl);