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

Diff for /loncom/auth/lonacc.pm between versions 1.27 and 1.32

version 1.27, 2002/02/25 21:22:51 version 1.32, 2002/06/15 19:20:14
Line 83  sub handler { Line 83  sub handler {
             }              }
             $ENV{'request.filename'} = $r->filename;              $ENV{'request.filename'} = $r->filename;
   
               $ENV{'request.copyright'} = 
    &Apache::lonnet::metadata($requrl,'copyright');
   
 # -------------------------------------------------------- Load POST parameters  # -------------------------------------------------------- Load POST parameters
   
   
Line 100  sub handler { Line 103  sub handler {
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                $name  =~ tr/+/ /;                 $name  =~ tr/+/ /;
                $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;                 $name  =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                if ($ENV{"form.$name"}) {         &Apache::loncommon::add_to_env("form.$name",$value);
                   $ENV{"form.$name"}.=','.$value;  
        } else {  
                   $ENV{"form.$name"}=$value;  
        }  
             }              }
         } else {          } else {
     my $contentsep=$1;      my $contentsep=$1;
Line 124  sub handler { Line 123  sub handler {
                         } else {                          } else {
                             $value=~s/\s+$//s;                              $value=~s/\s+$//s;
                         }                          }
                         $ENV{"form.$name"}=$value;   &Apache::loncommon::add_to_env("form.$name",$value);
                     }                      }
                     if ($i<$#lines) {                      if ($i<$#lines) {
  $i++;   $i++;
Line 176  sub handler { Line 175  sub handler {
             $requrl=~/\.(\w+)$/;              $requrl=~/\.(\w+)$/;
             if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {              if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
 # ------------------------------------- This is serious stuff, get symb and log  # ------------------------------------- This is serious stuff, get symb and log
  my $symb=&Apache::lonnet::symbread;   my $query=$r->args;
                   my $symb;
                   if ($query) {
       &Apache::loncommon::get_unprocessed_cgi($query,['symb']);
                   }
                   if ($ENV{'form.symb'}) {
       $symb=&Apache::lonnet::symbclean($ENV{'form.symb'});
                       if (&Apache::lonnet::symbverify($symb,$requrl)) {
                         my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
                         &Apache::lonnet::symblist($map,$murl => $mid,
                                                  'last_known' => $murl);
       } else {
    $r->log_reason('Invalid symb for '.$requrl.': '.
                                          $symb);
           $ENV{'user.error.msg'}=
                                   "$requrl:bre:1:1:Invalid Access";
                    return HTTP_NOT_ACCEPTABLE; 
                       }
                   } else {
               $symb=&Apache::lonnet::symbread;
                   }
                 $ENV{'request.symb'}=$symb;                  $ENV{'request.symb'}=$symb;
                 &Apache::lonnet::courseacclog($symb);                  &Apache::lonnet::courseacclog($symb);
             } else {              } else {
Removed from v.1.27  
changed lines
  Added in v.1.32

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