--- loncom/lonsql	2008/03/11 01:45:47	1.90
+++ loncom/lonsql	2011/11/07 18:13:38	1.91
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-MySQL-Server Daemon for handling database requests.
 #
-# $Id: lonsql,v 1.90 2008/03/11 01:45:47 raeburn Exp $
+# $Id: lonsql,v 1.91 2011/11/07 18:13:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -233,13 +233,13 @@ unless ($dbh = DBI->connect("DBI:mysql:l
     system("echo 'Cannot connect to MySQL database!' |".
            " 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";
     close(SMP);
 
     exit 1;
 } else {
-    unlink('/home/httpd/html/lon-status/mysql.txt');
+    unlink("$perlvar{'lonDocRoot'}/lon-status/mysql.txt");
     $dbh->disconnect;
 }