version 1.16, 2001/02/12 18:53:32
|
version 1.17, 2001/02/26 21:37:52
|
Line 516 if ($restartflag==1) {
|
Line 516 if ($restartflag==1) {
|
$errors++; |
$errors++; |
print $fh "<h3>lonc not running, trying to start</h3>"; |
print $fh "<h3>lonc not running, trying to start</h3>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
sleep 120; |
sleep 120; |
if (-e $loncfile) { |
if (-e $loncfile) { |
print $fh "Seems like it started ...<p>"; |
print $fh "Seems like it started ...<p>"; |
Line 531 if ($restartflag==1) {
|
Line 531 if ($restartflag==1) {
|
print $fh "<h3>lonc at pid $loncpid not responding</h3>"; |
print $fh "<h3>lonc at pid $loncpid not responding</h3>"; |
print $fh "Give it one more try ...<p>"; |
print $fh "Give it one more try ...<p>"; |
system( |
system( |
"$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
"$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); |
sleep 120; |
sleep 120; |
} |
} |
} else { |
} else { |