--- loncom/auth/loncacc.pm 2000/01/06 15:35:58 1.4 +++ loncom/auth/loncacc.pm 2000/01/14 21:12:40 1.5 @@ -2,7 +2,7 @@ # Cookie Based Access Handler for Construction Area # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) # 6/15,16/11,22/11, -# 01/06 Gerd Kortemeyer +# 01/06,01/11 Gerd Kortemeyer package Apache::loncacc; @@ -46,6 +46,14 @@ sub handler { $r->subprocess_env("user.environment" => "$lonidsdir/$handle.id", "request.state" => "construct", "request.filename" => $r->filename); + my $buffer; + $r->read($buffer,$r->header_in('Content-length')); + my @pairs=split(/&/,$buffer); + my $pair; my $name; my $value; + foreach $pair (@pairs) { + ($name,$value) = split(/=/,$pair); + $r->subprocess_env("form.$name" => $value); + } return OK; } else { $r->log_reason("Cookie $handle not valid", $r->filename)