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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 26 Aug 2003 19:41:53 -0000


albertel		Tue Aug 26 15:41:53 2003 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - bluh, spareserver return '' if now good alternate server found, need to leave $otherserver set to the current machine
  
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.46 loncom/auth/lonlogin.pm:1.47
--- loncom/auth/lonlogin.pm:1.46	Mon Aug 25 11:24:43 2003
+++ loncom/auth/lonlogin.pm	Tue Aug 26 15:41:53 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.46 2003/08/25 15:24:43 www Exp $
+# $Id: lonlogin.pm,v 1.47 2003/08/26 19:41:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -109,7 +109,8 @@
 # ---------------------------------------- Are we access server and overloaded?
     if (($role eq 'access') &&
 	(($userloadpercent>100.0)||($loadpercent>100.0))) {
-        $otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+        my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
+	if ($unloaded) { $otherserver=$unloaded; }
     }
 
 # ----------------------------------------------------------- Get announcements