loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.96, 2017/10/13 20:37:46	version 1.97, 2018/10/29 02:57:30
Line 231 unless ($dbh = DBI->connect("DBI:mysql:l	Line 231 unless ($dbh = DBI->connect("DBI:mysql:l
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!' \|".
" mailto $emailto -s '$subj' > /dev/null");	" mail -s '$subj' $emailto > /dev/null");

open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt");	open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt");
print SMP 'time='.time.'&mysql=defunct'."\n";	print SMP 'time='.time.'&mysql=defunct'."\n";