[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();