loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.56, 2003/07/25 17:07:06	version 1.57, 2003/07/30 16:49:27
Line 251 unless ($dbh = DBI->connect("DBI:mysql:l	Line 251 unless ($dbh = DBI->connect("DBI:mysql:l
my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";	my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
system("echo 'Cannot connect to MySQL database!' \|".	system("echo 'Cannot connect to MySQL database!' \|".
" mailto $emailto -s '$subj' > /dev/null");	" mailto $emailto -s '$subj' > /dev/null");

	open(SMP,'>/home/httpd/html/lon-status/mysql.txt');
	print SMP 'time='.time.'&mysql=defunct'."\n";
	close(SMP);

exit 1;	exit 1;
} else {	} else {
$dbh->disconnect;	$dbh->disconnect;