--- loncom/auth/lonacc.pm 2003/02/03 18:03:52 1.38 +++ loncom/auth/lonacc.pm 2003/04/12 15:58:43 1.43 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.38 2003/02/03 18:03:52 harris41 Exp $ +# $Id: lonacc.pm,v 1.43 2003/04/12 15:58:43 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -176,7 +176,9 @@ sub handler { if ($ENV{'request.course.id'}) { &Apache::lonnet::countacc($requrl); $requrl=~/\.(\w+)$/; - if (&Apache::loncommon::fileembstyle($1) eq 'ssi') { + if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || + ($requrl=~/^\/adm\/.*\/(aboutme|navmaps|smppg|bulletinboard|wrapper)(\?|$)/) || + ($requrl=~/^\/public\/.*\/syllabus$/)) { # ------------------------------------- This is serious stuff, get symb and log my $query=$r->args; my $symb; @@ -216,6 +218,9 @@ sub handler { if ($requrl=~m|^/public/| || (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { &Apache::lonnet::logthis('Granting public access: '.$requrl); + my $buffer; + $r->read($buffer,$r->header_in('Content-length')); + &Apache::loncommon::get_unprocessed_cgi($buffer); $ENV{'user.name'}='public'; $ENV{'user.domain'}='public'; $ENV{'request.state'} = "published"; @@ -226,10 +231,11 @@ sub handler { # -------------------------------------------------------------- Not authorized $requrl=~/\.(\w+)$/; if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || - ($requrl=~/^\/adm\/(roles|logout)/) || + ($requrl=~/^\/adm\/(roles|logout|email|menu|remote)/) || ($requrl=~m|^/prtspool/|)) { # -------------------------- Store where they wanted to go and get login screen - $ENV{'request.firsturl'}=$requrl; + $ENV{'request.querystring'}=$r->args; + $ENV{'request.firsturl'}=$requrl; return FORBIDDEN; } else { # --------------------------------------------------------------------- Goodbye