--- loncom/auth/lonacc.pm 2005/02/21 18:22:04 1.60.2.1 +++ loncom/auth/lonacc.pm 2005/02/07 23:37:44 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.60.2.1 2005/02/21 18:22:04 albertel Exp $ +# $Id: lonacc.pm,v 1.61 2005/02/07 23:37:44 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,9 +52,6 @@ sub handler { my $r = shift; my $requrl=$r->uri; 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 $cookie; if ($lonid) { @@ -148,9 +145,11 @@ sub handler { "$requrl:bre:1:1:Invalid Access"; return HTTP_NOT_ACCEPTABLE; } - my ($map,$mid,$murl)=split(/\_\_\_/,$symb); - &Apache::lonnet::symblist($map,$murl => $mid, - 'last_known' => $murl); + if ($symb) { + my ($map,$mid,$murl)=split(/\_\_\_/,$symb); + &Apache::lonnet::symblist($map,$murl => $mid, + 'last_known' => $murl); + } } $ENV{'request.symb'}=$symb; &Apache::lonnet::courseacclog($symb); @@ -188,17 +187,17 @@ sub handler { } # -------------------------------------------------------------- Not authorized $requrl=~/\.(\w+)$/; -# if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || -# ($requrl=~/^\/adm\/(roles|logout|email|menu|remote)/) || -# ($requrl=~m|^/prtspool/|)) { + if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || + ($requrl=~/^\/adm\/(roles|logout|email|menu|remote)/) || + ($requrl=~m|^/prtspool/|)) { # -------------------------- Store where they wanted to go and get login screen $ENV{'request.querystring'}=$r->args; $ENV{'request.firsturl'}=$requrl; return FORBIDDEN; -# } else { + } else { # --------------------------------------------------------------------- Goodbye -# return HTTP_BAD_REQUEST; -# } + return HTTP_BAD_REQUEST; + } } 1;