Diff for /loncom/auth/lonacc.pm between versions 1.53 and 1.57

version 1.53, 2004/12/14 20:32:15 version 1.57, 2004/12/28 20:18:38
Line 117  sub handler { Line 117  sub handler {
                 if ($query) {                  if ($query) {
     &Apache::loncommon::get_unprocessed_cgi($query,['symb']);      &Apache::loncommon::get_unprocessed_cgi($query,['symb']);
                 }                  }
  &Apache::lonnet::logthis("form.symb is ".$ENV{'form.symb'});  
                 if ($ENV{'form.symb'}) {                  if ($ENV{'form.symb'}) {
     $symb=&Apache::lonnet::symbclean($ENV{'form.symb'});      $symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
                     if ($requrl =~ m|^/adm/wrapper/|) {                      if ($requrl =~ m|^/adm/wrapper/|) {
Line 139  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) &&
    !&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);

Removed from v.1.53  
changed lines
  Added in v.1.57


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>