|
version 1.67, 2005/07/07 05:53:35
|
version 1.68, 2005/07/07 21:38:35
|
|
Line 95 sub handler {
|
Line 95 sub handler {
|
| if ($env{'user.name'} eq 'public' && |
if ($env{'user.name'} eq 'public' && |
| $env{'user.domain'} eq 'public' && |
$env{'user.domain'} eq 'public' && |
| $requrl !~ m{^/+(res|public)/} && |
$requrl !~ m{^/+(res|public)/} && |
| $requrl !~ m{^/+adm/(roles|logout|randomlabel\.png)}) { |
$requrl !~ m{^/+adm/(help|roles|logout|randomlabel\.png)}) { |
| $env{'request.querystring'}=$r->args; |
$env{'request.querystring'}=$r->args; |
| $env{'request.firsturl'}=$requrl; |
$env{'request.firsturl'}=$requrl; |
| return FORBIDDEN; |
return FORBIDDEN; |
|
Line 179 sub handler {
|
Line 179 sub handler {
|
| $r->header_out('Set-cookie',"lonID=$cookie; path=/"); |
$r->header_out('Set-cookie',"lonID=$cookie; path=/"); |
| return OK; |
return OK; |
| } |
} |
| |
if ($requrl=~m|^/+adm/+help/+|) { |
| |
return OK; |
| |
} |
| # -------------------------------------------------------------- Not authorized |
# -------------------------------------------------------------- Not authorized |
| $requrl=~/\.(\w+)$/; |
$requrl=~/\.(\w+)$/; |
| # if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
# if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth