version 1.90, 2008/03/11 01:45:47
|
version 1.91, 2011/11/07 18:13:38
|
Line 233 unless ($dbh = DBI->connect("DBI:mysql:l
|
Line 233 unless ($dbh = DBI->connect("DBI:mysql:l
|
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'); |
open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt"); |
print SMP 'time='.time.'&mysql=defunct'."\n"; |
print SMP 'time='.time.'&mysql=defunct'."\n"; |
close(SMP); |
close(SMP); |
|
|
exit 1; |
exit 1; |
} else { |
} else { |
unlink('/home/httpd/html/lon-status/mysql.txt'); |
unlink("$perlvar{'lonDocRoot'}/lon-status/mysql.txt"); |
$dbh->disconnect; |
$dbh->disconnect; |
} |
} |
|
|