loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.64, 2004/08/20 16:42:41	version 1.67, 2005/04/13 18:39:13
Line 241 unless ($dbh = DBI->connect("DBI:mysql:l	Line 241 unless ($dbh = DBI->connect("DBI:mysql:l

exit 1;	exit 1;
} else {	} else {
	unlink('/home/httpd/html/lon-status/mysql.txt');
$dbh->disconnect;	$dbh->disconnect;
}	}

Line 258 if (-e $pidfile) {	Line 259 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