version 1.65, 2005/04/22 20:55:40
|
version 1.67, 2005/07/07 05:53:35
|
Line 92 sub handler {
|
Line 92 sub handler {
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
|
if ($env{'user.name'} eq 'public' && |
|
$env{'user.domain'} eq 'public' && |
|
$requrl !~ m{^/+(res|public)/} && |
|
$requrl !~ m{^/+adm/(roles|logout|randomlabel\.png)}) { |
|
$env{'request.querystring'}=$r->args; |
|
$env{'request.firsturl'}=$requrl; |
|
return FORBIDDEN; |
|
} |
# ------------------------------------------------------------- This is allowed |
# ------------------------------------------------------------- This is allowed |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
&Apache::lonnet::countacc($requrl); |
&Apache::lonnet::countacc($requrl); |
Line 159 sub handler {
|
Line 167 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 |