loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.98, 2019/04/24 01:44:38	version 1.99, 2024/06/22 14:29:36
Line 228 unless ($dbh = DBI->connect("DBI:mysql:l	Line 228 unless ($dbh = DBI->connect("DBI:mysql:l
$perlvar{'lonSqlAccess'},	$perlvar{'lonSqlAccess'},
{ RaiseError =>0,PrintError=>0})) {	{ RaiseError =>0,PrintError=>0})) {
print "Cannot connect to database!\n";	print "Cannot connect to database!\n";
my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";	my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}";
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!' \|".
" mail -s '$subj' $emailto > /dev/null");	" mail -s '$subj' $emailto > /dev/null");