loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.16, 2001/02/12 18:53:32	version 1.18, 2001/03/15 13:20:46
Line 278 print $fh "</pre>";	Line 278 print $fh "</pre>";
#	#
# Do not run for now	# 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>';	print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>';

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 {