loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.64, 2004/08/20 16:42:41	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++;
}	}
close(CONFIG);	close(CONFIG);
#	#
$PREFORK=int($PREFORK/4);	#$PREFORK=int($PREFORK/4);

#	#
# Create a socket to talk to lond	# Create a socket to talk to lond