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

[raeburn]

raeburn		Wed Oct 21 12:29:40 2009 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - Checking that the hostname is known for the hostID to which redirection is to occur works better for the case of a multi-domain server.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.127 loncom/auth/lonlogin.pm:1.128
--- loncom/auth/lonlogin.pm:1.127	Tue Oct  6 23:43:21 2009
+++ loncom/auth/lonlogin.pm	Wed Oct 21 12:29:40 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.127 2009/10/06 23:43:21 raeburn Exp $
+# $Id: lonlogin.pm,v 1.128 2009/10/21 12:29:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -117,8 +117,7 @@
     if ($lonhost ne '') {
         my $loginvia = $domconfhash{$domain.'.login.loginvia_'.$lonhost};
         if (($loginvia ne '') && ($loginvia ne $lonhost)) {
-            my %servers = &Apache::lonnet::get_servers($domain);
-            if ($servers{$loginvia} ne '') {
+            if (&Apache::lonnet::hostname($loginvia) ne '') {
                 $r->print(&redirect_page($loginvia));
                 return OK;
             }