--- loncom/auth/lonacc.pm 1999/10/13 17:48:52 1.1 +++ loncom/auth/lonacc.pm 1999/11/16 19:14:15 1.2 @@ -1,11 +1,12 @@ # The LearningOnline Network # Cookie Based Access Handler -# 5/21/99,5/22,5/29,5/31,6/15 Gerd Kortemeyer +# 5/21/99,5/22,5/29,5/31,6/15,16/11 Gerd Kortemeyer package Apache::lonacc; use strict; use Apache::Constants qw(:common); +use Apache::File; use CGI::Cookie(); sub handler { @@ -19,7 +20,19 @@ sub handler { $handle=~s/\W//g; my $lonidsdir=$r->dir_config('lonIDsDir'); if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { - return OK; + 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" => "published"); + return OK; } else { $r->log_reason("Cookie $handle not valid", $r->filename) };