--- loncom/loncron	2001/01/10 18:47:35	1.15
+++ loncom/loncron	2001/03/15 13:20:46	1.18
@@ -11,6 +11,7 @@
 # 2/8 Gerd Kortemeyer
 # Dec 00 Scott Harrison
 # 12/23 Gerd Kortemeyer
+# 02/12/2001 Scott Harrison
 
 use IO::File;
 use IO::Socket;
@@ -277,7 +278,7 @@ print $fh "</pre>";
 #
 # Do not run for now
 #
-if ($perlvar{'lonRole'} eq "library" && 1==0) {
+if ($perlvar{'lonRole'} eq "library") {
 
     print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';
     
@@ -308,7 +309,8 @@ if ($perlvar{'lonRole'} eq "library" &&
     } else {
 	$errors++;
 	print $fh "<h3>lonsql not running, trying to start</h3>";
-	system("$perlvar{'lonDaemons'}/lonsql");
+	system(
+ "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
 	sleep 120;
 	if (-e $lonsqlfile) {
 	    print $fh "Seems like it started ...<p>";
@@ -322,7 +324,8 @@ if ($perlvar{'lonRole'} eq "library" &&
 		$errors++; $errors++;
 		print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";
 		print $fh "Give it one more try ...<p>";
-		system("$perlvar{'lonDaemons'}/lonsql");
+		system(
+ "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
 		sleep 120;
 	    }
 	} else {
@@ -409,7 +412,8 @@ if (-e $londfile) {
 if ($restartflag==1) {
    $errors++;
    print $fh "<h3>lond not running, trying to start</h3>";
-   system("$perlvar{'lonDaemons'}/lond");
+   system(
+     "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
    sleep 120;
    if (-e $londfile) {
        print $fh "Seems like it started ...<p>";
@@ -423,7 +427,8 @@ if ($restartflag==1) {
           $errors++; $errors++;
           print $fh "<h3>lond at pid $londpid not responding</h3>";
           print $fh "Give it one more try ...<p>";
-          system("$perlvar{'lonDaemons'}/lond");
+	  system(
+ "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
           sleep 120;
        }
    } else {
@@ -510,7 +515,8 @@ if (-e $loncfile) {
 if ($restartflag==1) {
    $errors++;
    print $fh "<h3>lonc not running, trying to start</h3>";
-   system("$perlvar{'lonDaemons'}/lonc");
+	system(
+ "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
    sleep 120;
    if (-e $loncfile) {
        print $fh "Seems like it started ...<p>";
@@ -524,7 +530,8 @@ if ($restartflag==1) {
           $errors++; $errors++;
           print $fh "<h3>lonc at pid $loncpid not responding</h3>";
           print $fh "Give it one more try ...<p>";
-          system("$perlvar{'lonDaemons'}/lonc");
+ 	  system(
+ "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
           sleep 120;
        }
    } else {