--- loncom/auth/lonacc.pm 2004/12/28 20:18:38 1.57 +++ loncom/auth/lonacc.pm 2005/01/25 00:28:00 1.59 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.57 2004/12/28 20:18:38 albertel Exp $ +# $Id: lonacc.pm,v 1.59 2005/01/25 00:28:00 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,10 +138,9 @@ sub handler { } } else { $symb=&Apache::lonnet::symbread($requrl); - if (&Apache::lonnet::is_on_map($requrl) && + if (&Apache::lonnet::is_on_map($requrl) && $symb && !&Apache::lonnet::symbverify($symb,$requrl)) { - $r->log_reason('Invalid symb for '.$requrl.': '. - $symb); + $r->log_reason('Invalid symb for '.$requrl.': '.$symb); $ENV{'user.error.msg'}= "$requrl:bre:1:1:Invalid Access"; return HTTP_NOT_ACCEPTABLE; @@ -175,6 +174,15 @@ sub handler { $ENV{'request.state'} = "published"; $ENV{'request.publicaccess'} = 1; $ENV{'request.filename'} = $r->filename; + my ($httpbrowser, $clientbrowser, $clientversion, + $clientmathml, $clientunicode, $clientos) = + &Apache::loncommon::decode_user_agent($r); + $ENV{'browser.type'}=$clientbrowser; + $ENV{'browser.version'}=$clientversion; + $ENV{'browser.mathml'}=$clientmathml; + $ENV{'browser.unicode'}=$clientunicode; + $ENV{'browser.os'}=$clientos; + return OK; } # -------------------------------------------------------------- Not authorized