version 1.54, 2004/12/17 19:43:19
|
version 1.58, 2004/12/28 20:28:55
|
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) && $symb && |
|
!&Apache::lonnet::symbverify($symb,$requrl)) { |
|
$r->log_reason('Invalid symb for '.$requrl.': '.$symb); |
|
$ENV{'user.error.msg'}= |
|
"$requrl:bre:1:1:Invalid Access"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
&Apache::lonnet::symblist($map,$murl => $mid, |
&Apache::lonnet::symblist($map,$murl => $mid, |
'last_known' => $murl); |
'last_known' => $murl); |