--- loncom/auth/lonlogout.pm 2006/04/05 22:28:58 1.17 +++ 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.17 2006/04/05 22:28:58 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; @@ -87,7 +77,7 @@ sub handler { # ---------------------------------------------------------------- Get handover &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); my $switch=''; - my $bodytag=''; + my $start_page=''; my $relogmessage=''; if ($env{'form.handover'}) { $switch='$lt{'cw'} $lt{'or'} - $lt{'li'}. + $lt{'li'}. ENDRELOG + + if ($env{'request.sso.login'} + && defined($r->dir_config('lonSSOUserLogoutMessageFile'))) { + open(my $fh,$r->dir_config('lonSSOUserLogoutMessageFile')); + $relogmessage.= join('',<$fh>); + } + } - $end_page=&Apache::loncommon::end_page(); + my $end_page=&Apache::loncommon::end_page(); # --------------------------------------------------------------- Screen Output $r->print(<