--- loncom/auth/loncacc.pm 1999/10/13 17:48:52 1.1.1.1 +++ loncom/auth/loncacc.pm 1999/11/16 19:14:15 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler for Construction Area # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) -# 6/15 Gerd Kortemeyer +# 6/15,16/11 Gerd Kortemeyer package Apache::loncacc; @@ -31,6 +31,18 @@ sub handler { ("$username at $domain not authorized", $r->filename); return HTTP_NOT_ACCEPTABLE; } + my @profile; + { + my $idf=Apache::File->new("$lonidsdir/$handle.id"); + @profile=<$idf>; + } + my $envi; + for ($envi=0;$envi<=$#profile;$envi++) { + chomp($profile[$envi]); + my ($envname,$envvalue)=split(/=/,$profile[$envi]); + $r->subprocess_env("profile.$envname" => "$envvalue"); + } + $r->subprocess_env("request.state" => "construct"); return OK; } else { $r->log_reason("Cookie $handle not valid", $r->filename)