[BACK]Return to lonacc.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.60.2.1 and 1.61

version 1.60.2.1, 2005/02/21 18:22:04 version 1.61, 2005/02/07 23:37:44
Line 52  sub handler { Line 52  sub handler {
     my $r = shift;      my $r = shift;
     my $requrl=$r->uri;      my $requrl=$r->uri;
     my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));      my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
     if ($r->header_in('User-Agent')=~/NSDL\_Search\_Bot/) {  
        return OK;  
     }  
     my $lonid=$cookies{'lonID'};      my $lonid=$cookies{'lonID'};
     my $cookie;      my $cookie;
     if ($lonid) {      if ($lonid) {
Line 148  sub handler { Line 145  sub handler {
                                 "$requrl:bre:1:1:Invalid Access";                                  "$requrl:bre:1:1:Invalid Access";
                  return HTTP_NOT_ACCEPTABLE;                    return HTTP_NOT_ACCEPTABLE; 
     }      }
                     my ($map,$mid,$murl)=split(/\_\_\_/,$symb);      if ($symb) {
     &Apache::lonnet::symblist($map,$murl => $mid,   my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
                                               'last_known' => $murl);   &Apache::lonnet::symblist($map,$murl => $mid,
     'last_known' => $murl);
       }
                 }                  }
                 $ENV{'request.symb'}=$symb;                  $ENV{'request.symb'}=$symb;
                 &Apache::lonnet::courseacclog($symb);                  &Apache::lonnet::courseacclog($symb);
Line 188  sub handler { Line 187  sub handler {
     }      }
 # -------------------------------------------------------------- Not authorized  # -------------------------------------------------------------- Not authorized
     $requrl=~/\.(\w+)$/;      $requrl=~/\.(\w+)$/;
 #    if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||      if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||
 #        ($requrl=~/^\/adm\/(roles|logout|email|menu|remote)/) ||          ($requrl=~/^\/adm\/(roles|logout|email|menu|remote)/) ||
 #        ($requrl=~m|^/prtspool/|)) {          ($requrl=~m|^/prtspool/|)) {
 # -------------------------- Store where they wanted to go and get login screen  # -------------------------- Store where they wanted to go and get login screen
  $ENV{'request.querystring'}=$r->args;   $ENV{'request.querystring'}=$r->args;
  $ENV{'request.firsturl'}=$requrl;   $ENV{'request.firsturl'}=$requrl;
        return FORBIDDEN;         return FORBIDDEN;
 #   } else {     } else {
 # --------------------------------------------------------------------- Goodbye  # --------------------------------------------------------------------- Goodbye
 #       return HTTP_BAD_REQUEST;         return HTTP_BAD_REQUEST;
 #   }     }
 }  }
   
 1;  1;
Removed from v.1.60.2.1  
changed lines
  Added in v.1.61

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