loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.59, 2005/01/25 00:28:00	version 1.61, 2005/02/07 23:37:44
Line 145 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);
Line 166 sub handler {	Line 168 sub handler {
if ($requrl=~m\|^/public/\|	if ($requrl=~m\|^/public/\|
\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {	\|\| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) {
&Apache::lonnet::logthis('Granting public access: '.$requrl);	&Apache::lonnet::logthis('Granting public access: '.$requrl);
my $buffer;	&Apache::loncommon::get_posted_cgi($r);
$r->read($buffer,$r->header_in('Content-length'),0);
&Apache::loncommon::get_unprocessed_cgi($buffer);
$ENV{'user.name'}='public';	$ENV{'user.name'}='public';
$ENV{'user.domain'}='public';	$ENV{'user.domain'}='public';
$ENV{'request.state'} = "published";	$ENV{'request.state'} = "published";