version 1.29, 2002/03/26 16:05:01
|
version 1.33, 2002/06/15 19:45:26
|
Line 178 sub handler {
|
Line 178 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($query,['symb']); |
&Apache::loncommon::get_unprocessed_cgi($query,['symb']); |
} |
} |
if ($ENV{'form.symb'}) { |
if ($ENV{'form.symb'}) { |
$symb=$ENV{'form.symb'}; |
$symb=&Apache::lonnet::symbclean($ENV{'form.symb'}); |
|
if (&Apache::lonnet::symbverify($symb,$requrl)) { |
|
my ($map,$mid,$murl)=split(/\_\_\_/,$symb); |
|
&Apache::lonnet::symblist($map,$murl => $mid, |
|
'last_known' => $murl); |
|
} else { |
|
$r->log_reason('Invalid symb for '.$requrl.': '. |
|
$symb); |
|
$ENV{'user.error.msg'}= |
|
"$requrl:bre:1:1:Invalid Access"; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
} else { |
} else { |
$symb=&Apache::lonnet::symbread; |
$symb=&Apache::lonnet::symbread; |
} |
} |