--- loncom/auth/lonlogout.pm 2001/11/29 21:54:56 1.4 +++ loncom/auth/lonlogout.pm 2003/03/17 17:53:09 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.4 2001/11/29 21:54:56 www Exp $ +# $Id: lonlogout.pm,v 1.8 2003/03/17 17:53:09 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,7 +28,7 @@ # (Cookie Based Access Handler # 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, # 01/06,01/13 Gerd Kortemeyer) -# 05/31 Gerd Kortemeyer +# 05/31,11/29,12/29 Gerd Kortemeyer package Apache::lonlogout; @@ -64,6 +64,8 @@ sub handler { $sessionhash{$envname}=$envvalue; } 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'}, @@ -74,14 +76,33 @@ sub handler { # -------------------------------------------------------- Menu script and info my $windowinfo=&Apache::lonmenu::close(); - +# ---------------------------------------------------------------- Get handover + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['handover']); + my $switch=''; + my $bodytag=''; + my $relogmessage=''; + if ($ENV{'form.handover'}) { + $switch=''; + $bodytag=&Apache::loncommon::bodytag('Switching Server ...'); + } else { + $bodytag=&Apache::loncommon::bodytag('Logged Out'); + $relogmessage=(<Goodbye! +Please either close this window or +log in again. +ENDRELOG + } # --------------------------------------------------------------- Screen Output $r->print(< -The LearningOnline Network with CAPA Logout - +The LearningOnline Network with CAPA Logout +$switch + +$bodytag $windowinfo -

Goodbye!

+$relogmessage + ENDDOCUMENT &Apache::lonnet::flushcourselogs();