loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.65, 2004/08/26 19:29:09	version 1.66, 2005/02/09 20:39:47
Line 258 if (-e $pidfile) {	Line 258 if (-e $pidfile) {
#	#
# Read hosts file	# Read hosts file
#	#
my %hostip;
my $thisserver;	my $thisserver;
my $PREFORK=4; # number of children to maintain, at least four spare	my $PREFORK=4; # number of children to maintain, at least four spare
open (CONFIG,"$perlvar{'lonTabDir'}/hosts.tab") \|\| die "Can't read host file";	open (CONFIG,"$perlvar{'lonTabDir'}/hosts.tab") \|\| die "Can't read host file";
while (my $configline=<CONFIG>) {	while (my $configline=<CONFIG>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);	my ($id,$domain,$role,$name)=split(/:/,$configline);
chomp($ip);	$name=~s/\s//g;
$hostip{$ip}=$id;
$thisserver=$name if ($id eq $perlvar{'lonHostID'});	$thisserver=$name if ($id eq $perlvar{'lonHostID'});
#$PREFORK++;	#$PREFORK++;
}	}