[LON-CAPA-cvs] cvs: loncom / lonc

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 24 Oct 2003 16:36:14 -0000


albertel		Fri Oct 24 12:36:14 2003 EDT

  Modified files:              
    /loncom	lonc 
  Log:
  - make connections using hostname
  
  
Index: loncom/lonc
diff -u loncom/lonc:1.55 loncom/lonc:1.56
--- loncom/lonc:1.55	Wed Sep 17 15:05:03 2003
+++ loncom/lonc	Fri Oct 24 12:36:14 2003
@@ -5,7 +5,7 @@
 # provides persistent TCP connections to the other servers in the network
 # through multiplexed domain sockets
 #
-# $Id: lonc,v 1.55 2003/09/17 19:05:03 albertel Exp $
+# $Id: lonc,v 1.56 2003/10/24 16:36:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -711,7 +711,7 @@
     my $st=120+int(rand(240)); # Sleep before opening:
 
     unless (
-	    $remotesock = IO::Socket::INET->new(PeerAddr => $hostip{$conserver},
+	    $remotesock = IO::Socket::INET->new(PeerAddr => $hostname{$conserver},
 						PeerPort => $perlvar{'londPort'},
 						Proto    => "tcp",
 						Type     => SOCK_STREAM)