--- loncom/auth/lonauth.pm	2003/07/17 15:24:46	1.54
+++ loncom/auth/lonauth.pm	2003/11/12 16:55:40	1.59
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.54 2003/07/17 15:24:46 www Exp $
+# $Id: lonauth.pm,v 1.59 2003/11/12 16:55:40 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,6 +46,7 @@ use Apache::loncommon();
 use Apache::lonnet();
 use Apache::lonmenu();
 use Fcntl qw(:flock);
+use Apache::lonlocal;
 
 my %FORM;
 
@@ -190,6 +191,12 @@ Content-type: text/html
 Set-cookie: $cookie
 
 ENDHEADER
+    my %lt=&Apache::lonlocal::texthash(
+				       'wel' => 'Welcome',
+				       'mes' => 'Welcome to the Learning<i>Online</i> Network with CAPA. Please wait while your session is being set up',
+				       'pro' => 'Problems',
+				       'log' => 'loginproblems.html',
+				       );
     $r->print(<<ENDSUCCESS);
 <html>
 <head>
@@ -199,11 +206,9 @@ $startupremote
 $bodytag
 $setflags
 $windowinfo
-<h1>Welcome!</h1>
-Welcome to the Learning<i>Online</i> Network with CAPA.
-Please wait while your session
-is being set up.<p>
-<a href="/adm/loginproblems.html">Problems?</a></p>
+<h1>$lt{'wel'}</h1>
+$lt{'mes'}.<p>
+<a href="/adm/$lt{'log'}">$lt{'pro'}?</a></p>
 $maincall
 </body>
 </html>
@@ -236,11 +241,79 @@ $bodytag
 ENDFAILED
 }
 
+# ------------------------------------------------------------------ Rerouting!
+
+sub reroute {
+    my $r=shift;
+    my $bodytag=&Apache::loncommon::bodytag('Rerouting');
+    $r->send_cgi_header(<<ENDRFHEADER);
+Content-type: text/html
+
+ENDRFHEADER
+    $r->print(<<ENDRFAILED);
+<html>
+<head>
+<title>Rerouting Login to the LearningOnline Network with CAPA</title>
+</head>
+<html>
+$bodytag
+<h1>Sorry ...</h1>
+Please <a href="/">log in again</a>.
+</body>
+</html>
+ENDRFAILED
+}
+
 # ---------------------------------------------------------------- Main handler
 
 sub handler {
     my $r = shift;
 
+# Are we re-routing?
+    if (-e '/home/httpd/html/lon-status/reroute.txt') {
+	&reroute($r);
+	return OK;
+    }
+
+    &Apache::lonlocal::get_language_handle($r);
+
+# -------------------------------- Prevent users from attempting to login twice
+    my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
+    my $lonid=$cookies{'lonID'};
+    my $cookie;
+    if ($lonid) {
+	my $handle=$lonid->value;
+        $handle=~s/\W//g;
+        my $lonidsdir=$r->dir_config('lonIDsDir');
+        if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
+# Indeed, a valid token is found
+	    $r->send_cgi_header(<<ENDFHEADER);
+Content-type: text/html
+
+ENDFHEADER
+	    my $bodytag=&Apache::loncommon::bodytag('Already logged in');
+	    $r->print(<<ENDFAILED);
+<html>
+<head>
+<title>Already logged in</title>
+</head>
+<html>
+$bodytag
+<h1>You are already logged in</h1>
+<p>Please either <a href="/adm/roles">continue the current session</a> or
+<a href="/adm/logout">logout</a>.</p>
+<p>
+<a href="/adm/loginproblems.html">Problems?</a></p>
+</body>
+</html>
+ENDFAILED
+           return OK;
+	}
+    }
+
+# ---------------------------------------------------- No valid token, continue
+
+
     my $buffer;
     $r->read($buffer,$r->header_in('Content-length'),0);
     my @pairs=split(/&/,$buffer);
@@ -311,7 +384,8 @@ sub handler {
         return OK;
     }
 
-    if (($firsturl eq '') || ($firsturl eq '/adm/logout')) {
+    if (($firsturl eq '') || 
+	($firsturl=~/^\/adm\/(logout|remote)/)) {
 	$firsturl='/adm/roles';
     }
 
