loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.30, 2002/04/02 21:33:06
+version 1.31, 2002/05/07 18:49:33
  Line 178  sub handler {
  		    &Apache::loncommon::get_unprocessed_cgi($query,['symb']);
                  }
                  if ($ENV{'form.symb'}) {
- 		    $symb=$ENV{'form.symb'};
+ 		    $symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
-                     my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
+                     if (&Apache::lonnet::symbverify($symb,$requrl)) {
-                     &Apache::lonnet::symblist($map,$murl => $mid,
+                       my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
-                                             'last_known' => $murl);
+                       &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 {
  	            $symb=&Apache::lonnet::symbread;
                  }