loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.30, 2002/04/02 21:33:06	version 1.32, 2002/06/15 19:20:14
Line 83 sub handler {	Line 83 sub handler {
}	}
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;

	$ENV{'request.copyright'} =
	&Apache::lonnet::metadata($requrl,'copyright');

# -------------------------------------------------------- Load POST parameters	# -------------------------------------------------------- Load POST parameters


Line 178 sub handler {	Line 181 sub handler {
&Apache::loncommon::get_unprocessed_cgi($query,['symb']);	&Apache::loncommon::get_unprocessed_cgi($query,['symb']);
}	}
if ($ENV{'form.symb'}) {	if ($ENV{'form.symb'}) {
$symb=$ENV{'form.symb'};	$symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
my ($map,$mid,$murl)=split(/\_\_\_/,$symb);	if (&Apache::lonnet::symbverify($symb,$requrl)) {
&Apache::lonnet::symblist($map,$murl => $mid,	my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
'last_known' => $murl);	&Apache::lonnet::symblist($map,$murl => $mid,
	'last_known' => $murl);
	} else {
	$r->log_reason('Invalid symb for '.$requrl.': '.
	$symb);
	$ENV{'user.error.msg'}=
	"$requrl:bre:1:1:Invalid Access";
	return HTTP_NOT_ACCEPTABLE;
	}
} else {	} else {
$symb=&Apache::lonnet::symbread;	$symb=&Apache::lonnet::symbread;
}	}