--- loncom/lonsql	2003/07/25 17:07:06	1.56
+++ loncom/lonsql	2003/07/30 16:49:27	1.57
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: lonsql,v 1.56 2003/07/25 17:07:06 bowersj2 Exp $
+# $Id: lonsql,v 1.57 2003/07/30 16:49:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -251,6 +251,11 @@ unless ($dbh = DBI->connect("DBI:mysql:l
     my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
     system("echo 'Cannot connect to MySQL database!' |".
            " 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;
 } else {
     $dbh->disconnect;