version 1.64, 2004/08/20 16:42:41
|
version 1.65, 2004/08/26 19:29:09
|
Line 267 while (my $configline=<CONFIG>) {
|
Line 267 while (my $configline=<CONFIG>) {
|
chomp($ip); |
chomp($ip); |
$hostip{$ip}=$id; |
$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 |