loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.65, 2005/04/22 20:55:40	version 1.66, 2005/07/05 21:30:14
Line 159 sub handler {	Line 159 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 $cookie=
	&Apache::lonauth::success($r,'public','public','public');
	my $lonidsdir=$r->dir_config('lonIDsDir');
	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$cookie);
&Apache::loncommon::get_posted_cgi($r);	&Apache::loncommon::get_posted_cgi($r);
$env{'user.name'}='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;

	$r->header_out('Set-cookie',"lonID=$cookie; path=/");
return OK;	return OK;
}	}
# -------------------------------------------------------------- Not authorized	# -------------------------------------------------------------- Not authorized