loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.58, 2004/12/28 20:28:55	version 1.60, 2005/01/28 09:30:40
Line 166 sub handler {	Line 166 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";
$ENV{'request.publicaccess'} = 1;	$ENV{'request.publicaccess'} = 1;
$ENV{'request.filename'} = $r->filename;	$ENV{'request.filename'} = $r->filename;
	my ($httpbrowser, $clientbrowser, $clientversion,
	$clientmathml, $clientunicode, $clientos) =
	&Apache::loncommon::decode_user_agent($r);
	$ENV{'browser.type'}=$clientbrowser;
	$ENV{'browser.version'}=$clientversion;
	$ENV{'browser.mathml'}=$clientmathml;
	$ENV{'browser.unicode'}=$clientunicode;
	$ENV{'browser.os'}=$clientos;

return OK;	return OK;
}	}
# -------------------------------------------------------------- Not authorized	# -------------------------------------------------------------- Not authorized