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

[raeburn]

raeburn		Fri Jun 10 01:21:36 2011 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  - Bug 6472.
   -  Replace use of &lonnet::choose_server() with &lonnet::spareserver() as in 
      lonnet.pm rev 1.1083 (and later) a check hosting is allowed is included.
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.112 loncom/auth/lonauth.pm:1.113
--- loncom/auth/lonauth.pm:1.112	Fri May 13 01:33:02 2011
+++ loncom/auth/lonauth.pm	Fri Jun 10 01:21:36 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.112 2011/05/13 01:33:02 raeburn Exp $
+# $Id: lonauth.pm,v 1.113 2011/06/10 01:21:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -421,7 +421,7 @@
     if ($r->dir_config("lonBalancer") eq 'yes') {
 	&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
 		 \%form);
-        my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});
+        my $otherserver = &Apache::lonnet::spareserver(30000,undef,1,$form{'udom'});
 	$r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl);
         return OK;
     } else {