loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.53, 2004/12/14 20:32:15	version 1.57, 2004/12/28 20:18:38
Line 117 sub handler {	Line 117 sub handler {
if ($query) {	if ($query) {
&Apache::loncommon::get_unprocessed_cgi($query,['symb']);	&Apache::loncommon::get_unprocessed_cgi($query,['symb']);
}	}
&Apache::lonnet::logthis("form.symb is ".$ENV{'form.symb'});
if ($ENV{'form.symb'}) {	if ($ENV{'form.symb'}) {
$symb=&Apache::lonnet::symbclean($ENV{'form.symb'});	$symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
if ($requrl =~ m\|^/adm/wrapper/\|) {	if ($requrl =~ m\|^/adm/wrapper/\|) {
Line 139 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);