loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.65, 2004/08/26 19:29:09	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++;
}	}