loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lonsql between versions 1.3 and 1.5

version 1.3, 2000/07/02 04:01:56	version 1.5, 2001/03/14 14:19:44
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl
# lonsql-based on the preforker:harsha jagasia:date:5/10/00	# lonsql-based on the preforker:harsha jagasia:date:5/10/00
	# 7/25 Gerd Kortemeyer

use IO::Socket;	use IO::Socket;
use Symbol;	use Symbol;
Line 27 while ($configline=<CONFIG>) {	Line 28 while ($configline=<CONFIG>) {
}	}
close(CONFIG);	close(CONFIG);

	# --------------------------------------------- Check if other instance running

	my $pidfile="$perlvar{'lonDaemons'}/logs/lonsql.pid";

	if (-e $pidfile) {
	my $lfh=IO::File->new("$pidfile");
	my $pide=<$lfh>;
	chomp($pide);
	if (kill 0 => $pide) { die "already running"; }
	}

# ------------------------------------------------------------- Read hosts file	# ------------------------------------------------------------- Read hosts file
$PREFORK=4; # number of children to maintain, at least four spare	$PREFORK=4; # number of children to maintain, at least four spare

Line 168 sub make_new_child {	Line 180 sub make_new_child {
#open database handle	#open database handle
# making dbh global to avoid garbage collector	# making dbh global to avoid garbage collector
unless (	unless (
$dbh = DBI->connect("DBI:mysql:loncapa","www","newmysql",{ RaiseError =>0,PrintError=>0})	$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0})
) {	) {
my $st=120+int(rand(240));	my $st=120+int(rand(240));
&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>");	&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.5