[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)