--- loncom/lonsql	2001/10/17 02:15:59	1.37
+++ loncom/lonsql	2001/11/28 21:49:27	1.38
@@ -47,7 +47,11 @@ close(CONFIG);
 	    $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})
 	    ) { 
 	print "Cannot connect to database!\n";
-	exit;
+	$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+	$subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
+	system("echo 'Cannot connect to MySQL database!' |\
+ mailto $emailto -s '$subj' > /dev/null");
+	exit 1;
     }
     else {
 	$dbh->disconnect;