--- loncom/auth/lonacc.pm 2002/05/07 18:49:33 1.31 +++ loncom/auth/lonacc.pm 2002/10/25 13:59:40 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.31 2002/05/07 18:49:33 www Exp $ +# $Id: lonacc.pm,v 1.36 2002/10/25 13:59:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -155,7 +155,7 @@ sub handler { # ---------------------------------------------------------------- Check access - if ($requrl!~/^\/adm\//) { + if ($requrl!~/^\/adm|public\//) { my $access=&Apache::lonnet::allowed('bre',$requrl); if ($access eq '1') { $ENV{'user.error.msg'}="$requrl:bre:0:0:Choose Course"; @@ -207,7 +207,8 @@ sub handler { } # -------------------------------------------- See if this is a public resource - if (&Apache::lonnet::metadata($requrl,'copyright') eq 'public') { + if (($requrl=~/^\/public\//) || + (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { &Apache::lonnet::logthis('Granting public access: '.$requrl); $ENV{'user.name'}='public'; $ENV{'user.domain'}='public'; @@ -216,10 +217,17 @@ sub handler { $ENV{'request.filename'} = $r->filename; return OK; } -# ----------------------------------------------- Store where they wanted to go - - $ENV{'request.firsturl'}=$requrl; - return FORBIDDEN; +# -------------------------------------------------------------- Not authorized + $requrl=~/\.(\w+)$/; + if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || + ($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; + } } 1;