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

Diff for /loncom/auth/loncacc.pm between versions 1.8 and 1.9

version 1.8, 2000/09/15 15:04:17 version 1.9, 2000/09/25 20:34:28
Line 2 Line 2
 # Cookie Based Access Handler for Construction Area  # Cookie Based Access Handler for Construction Area
 # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)  # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer)
 # 6/15,16/11,22/11,  # 6/15,16/11,22/11,
 # 01/06,01/11,6/1 Gerd Kortemeyer  # 01/06,01/11,6/1,9/25 Gerd Kortemeyer
   
 package Apache::loncacc;  package Apache::loncacc;
   
Line 42  sub handler { Line 42  sub handler {
             for ($envi=0;$envi<=$#profile;$envi++) {              for ($envi=0;$envi<=$#profile;$envi++) {
  chomp($profile[$envi]);   chomp($profile[$envi]);
  my ($envname,$envvalue)=split(/=/,$profile[$envi]);   my ($envname,$envvalue)=split(/=/,$profile[$envi]);
                 $r->subprocess_env("$envname" => "$envvalue");                  $ENV{$envname} = $envvalue;
             }              }
             $r->subprocess_env("user.environment" => "$lonidsdir/$handle.id",              $ENV{'user.environment'} = "$lonidsdir/$handle.id";
                                "request.state"    => "construct",              $ENV{'request.state'}    = "construct";
                                "request.filename" => $r->filename);              $ENV{'request.filename'} = $r->filename;
   
   # -------------------------------------------------------- Load POST parameters
   
   
             my $buffer;              my $buffer;
   
             $r->read($buffer,$r->header_in('Content-length'));              $r->read($buffer,$r->header_in('Content-length'));
             my @pairs=split(/&/,$buffer);              my @pairs=split(/&/,$buffer);
             my $pair; my $name; my $value;              my $pair;
             foreach $pair (@pairs) {              foreach $pair (@pairs) {
                ($name,$value) = split(/=/,$pair);                 my ($name,$value) = split(/=/,$pair);
                $value =~ tr/+/ /;                 $value =~ tr/+/ /;
                $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;
                $r->subprocess_env("form.$name" => $value);                 $ENV{"form.$name"}=$value;
             }               } 
   
             $r->method_number(M_GET);              $r->method_number(M_GET);
Removed from v.1.8  
changed lines
  Added in v.1.9

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