|
version 1.57, 2004/12/28 20:18:38
|
version 1.59, 2005/01/25 00:28:00
|
|
Line 138 sub handler {
|
Line 138 sub handler {
|
| } |
} |
| } else { |
} else { |
| $symb=&Apache::lonnet::symbread($requrl); |
$symb=&Apache::lonnet::symbread($requrl); |
| if (&Apache::lonnet::is_on_map($requrl) && |
if (&Apache::lonnet::is_on_map($requrl) && $symb && |
| !&Apache::lonnet::symbverify($symb,$requrl)) { |
!&Apache::lonnet::symbverify($symb,$requrl)) { |
| $r->log_reason('Invalid symb for '.$requrl.': '. |
$r->log_reason('Invalid symb for '.$requrl.': '.$symb); |
| $symb); |
|
| $ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |
| "$requrl:bre:1:1:Invalid Access"; |
"$requrl:bre:1:1:Invalid Access"; |
| return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
|
Line 175 sub handler {
|
Line 174 sub handler {
|
| $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 |
![[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