--- loncom/auth/lonlogout.pm 2006/08/29 20:34:39 1.20 +++ loncom/auth/lonlogout.pm 2006/09/05 20:16:49 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.20 2006/08/29 20:34:39 albertel Exp $ +# $Id: lonlogout.pm,v 1.21 2006/09/05 20:16:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,23 +59,13 @@ sub handler { #we've got a valid user my @profile; - my %sessionhash; - { - 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]); - $sessionhash{$envname}=$envvalue; - } + &Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle); unlink("$lonidsdir/$handle.id"); my %temp=('logout' => time); &Apache::lonnet::put('email_status',\%temp); - &Apache::lonnet::log($sessionhash{'user.domain'}, - $sessionhash{'user.name'}, - $sessionhash{'user.home'}, + &Apache::lonnet::log($env{'user.domain'}, + $env{'user.name'}, + $env{'user.home'}, "Logout $ENV{'REMOTE_ADDR'}"); &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; @@ -108,7 +98,7 @@ sub handler { $relogmessage=(<$lt{'gb'}! $lt{'pe'} $lt{'cw'} $lt{'or'} - $lt{'li'}. + $lt{'li'}. ENDRELOG if ($env{'request.sso.login'}