--- loncom/auth/lonlogout.pm 2001/11/29 19:12:44 1.3 +++ loncom/auth/lonlogout.pm 2003/03/02 04:08:41 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network # Logout Handler # -# $Id: lonlogout.pm,v 1.3 2001/11/29 19:12:44 www Exp $ +# $Id: lonlogout.pm,v 1.7 2003/03/02 04:08:41 www 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,16 +76,36 @@ 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 +login 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(); return OK; } else { $r->log_reason("Cookie $handle not valid", $r->filename);