--- loncom/auth/lonlogout.pm 2006/05/01 21:04:31 1.19 +++ 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.19 2006/05/01 21:04:31 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; @@ -102,11 +92,21 @@ sub handler { 'li' => 'log in again', 'pe' => 'Please either', 'or' => 'or'); + my $login_url = '/adm/'.($env{'request.sso.login'} ? 'roles' + : 'login'); + $relogmessage=(<$lt{'gb'}! $lt{'pe'} $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>); + } + } my $end_page=&Apache::loncommon::end_page(); # --------------------------------------------------------------- Screen Output