loncom/auth/lonlogout.pm - diff

Return to lonlogout.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.5, 2001/12/29 21:09:47
+version 1.10, 2003/06/06 02:24:49
  Line 76  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='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.
+ 	   $ENV{'form.handover'}.'">';
+        $bodytag=&Apache::loncommon::bodytag('Switching Server ...');
+    } else {
+        $bodytag=&Apache::loncommon::bodytag('Logged Out');
+        $relogmessage=(<<ENDRELOG);
+ <h1>Goodbye!</h1>
+ Please either <a href="javascript:self.close();">close this window</a> or
+ <a href="/adm/login">log in again</a>.
+ ENDRELOG
+    }
  # --------------------------------------------------------------- Screen Output
              $r->print(<<ENDDOCUMENT);
  <html>
- <head><title>The LearningOnline Network with CAPA Logout</title></head>
+ <head><title>The LearningOnline Network with CAPA Logout</title>
- <body bgcolor="#FFFFFF">
+ $switch
+ </head>
+ $bodytag
  $windowinfo
- <h1>Goodbye!</h1></body>
+ $relogmessage
+ </body>
  </html>
  ENDDOCUMENT
              &Apache::lonnet::flushcourselogs();