[LON-CAPA-cvs] cvs: loncom /auth lonlogout.pm

www lon-capa-cvs@mail.lon-capa.org
Sun, 02 Mar 2003 04:08:41 -0000


www		Sat Mar  1 23:08:41 2003 EDT

  Modified files:              
    /loncom/auth	lonlogout.pm 
  Log:
  Looks prettier and allows easier re-logging in.
  
  
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.6 loncom/auth/lonlogout.pm:1.7
--- loncom/auth/lonlogout.pm:1.6	Wed Jan 29 10:22:06 2003
+++ loncom/auth/lonlogout.pm	Sat Mar  1 23:08:41 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Logout Handler
 #
-# $Id: lonlogout.pm,v 1.6 2003/01/29 15:22:06 www Exp $
+# $Id: lonlogout.pm,v 1.7 2003/03/02 04:08:41 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,19 +79,30 @@
 # ---------------------------------------------------------------- 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">login again</a>.
+ENDRELOG
+   }
 # --------------------------------------------------------------- Screen Output
             $r->print(<<ENDDOCUMENT);
 <html>
 <head><title>The LearningOnline Network with CAPA Logout</title>
 $switch
 </head>
-<body bgcolor="#FFFFFF">
+$bodytag
 $windowinfo
-<h1>Goodbye!</h1></body>
+$relogmessage
+</body>
 </html>
 ENDDOCUMENT
             &Apache::lonnet::flushcourselogs();