[LON-CAPA-cvs] cvs: loncom / lond
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 25 Aug 2006 17:26:27 -0000
albertel Fri Aug 25 13:26:27 2006 EDT
Modified files:
/loncom lond
Log:
- ip nolonger in hosts.tab
Index: loncom/lond
diff -u loncom/lond:1.337 loncom/lond:1.338
--- loncom/lond:1.337 Fri Aug 25 13:22:59 2006
+++ loncom/lond Fri Aug 25 13:26:26 2006
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.337 2006/08/25 17:22:59 albertel Exp $
+# $Id: lond,v 1.338 2006/08/25 17:26:26 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -59,7 +59,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.337 $'; #' stupid emacs
+my $VERSION='$Revision: 1.338 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid="default";
my $currentdomainid;
@@ -835,16 +835,14 @@
# Use the config line to get my hostname.
# Use gethostbyname to translate that into an IP address.
#
- my ($id,$domain,$role,$name,$ip,$maxcon,$idleto,$mincon) = split(/:/,$ConfigLine);
- my $BinaryIp = gethostbyname($name);
- my $ip = inet_ntoa($ip);
+ my ($id,$domain,$role,$name,$maxcon,$idleto,$mincon) = split(/:/,$ConfigLine);
#
# Reassemble the config line from the elements in the list.
# Note that if the loncnew items were not present before, they will
# be now even if they would be empty
#
my $newConfigLine = $id;
- foreach my $item ($domain, $role, $name, $ip, $maxcon, $idleto, $mincon) {
+ foreach my $item ($domain, $role, $name, $maxcon, $idleto, $mincon) {
$newConfigLine .= ":".$item;
}
# Replace the line: