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 |