loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.33, 2002/06/15 19:45:26
+version 1.34, 2002/07/03 20:54:49
  Line 216  sub handler {
          $ENV{'request.filename'} = $r->filename;
          return OK;
      }
- # ----------------------------------------------- Store where they wanted to go
+ # -------------------------------------------------------------- Not authorized
+     $requrl=~/\.(\w+)$/;
-     $ENV{'request.firsturl'}=$requrl;
+     if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||
-     return FORBIDDEN;
+         ($requrl=~/^\/adm\/(roles|logout)/)) {
+ # -------------------------- Store where they wanted to go and get login screen
+        $ENV{'request.firsturl'}=$requrl;
+        return FORBIDDEN;
+    } else {
+ # --------------------------------------------------------------------- Goodbye
+        return HTTP_BAD_REQUEST;
+    }
  }
 ;