--- loncom/auth/lonlogin.pm	2003/09/02 22:28:19	1.48
+++ loncom/auth/lonlogin.pm	2003/09/16 18:15:43	1.50
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.48 2003/09/02 22:28:19 albertel Exp $
+# $Id: lonlogin.pm,v 1.50 2003/09/16 18:15:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,8 @@ use Apache::Constants qw(:common);
 use Apache::File ();
 use Apache::lonnet();
 use Apache::loncommon();
+use Apache::lonauth();
+use Apache::lonlocal;
 
 sub handler {
     my $r = shift;
@@ -49,10 +51,20 @@ sub handler {
     return OK if $r->header_only;
 
 
+# Are we re-routing?
+    if (-e '/home/httpd/html/lon-status/reroute.txt') {
+	&Apache::lonauth::reroute($r);
+	return OK;
+    }
+
     &Apache::loncommon::get_unprocessed_cgi
      ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
       ['interface','username','domain','firsturl','localpath','localres']);
  
+# -------------------------------------------------------------------- Language
+
+    &Apache::lonlocal::get_language_handle();
+
 # ----------------------------------------------------------- Process Interface
     $ENV{'form.interface'}=~s/\W//g;