--- loncom/lonsql	2001/04/02 20:10:09	1.29
+++ loncom/lonsql	2001/04/02 20:16:31	1.30
@@ -23,7 +23,18 @@ sub wanted {
     push(@metalist,"$dir/$_");
 }
 
-
+{
+    my $dbh;
+    unless (
+	    $dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0})
+	    ) { 
+	print "Cannot connect to database!\n";
+	exit;
+    }
+    else {
+	$dbh->disconnect;
+    }
+}
 $childmaxattempts=10;
 $run =0;#running counter to generate the query-id
 
@@ -193,6 +204,7 @@ sub make_new_child {
 	unless (
 		$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0})
 		) { 
+  	            sleep(10+int(rand(20)));
 		    &logthis("<font color=blue>WARNING: Couldn't connect to database  ($st secs): $@</font>");
 		    print "database handle error\n";
 		    exit;