--- loncom/loncron 2001/01/10 17:49:56 1.14 +++ loncom/loncron 2001/04/21 15:22:37 1.20 @@ -9,12 +9,19 @@ # # 7/14,7/15,7/19,7/21,7/22,11/18, # 2/8 Gerd Kortemeyer -# Dec 00 Scott Harrison +# 12/6/2000,12/8 Scott Harrison # 12/23 Gerd Kortemeyer +# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21 Scott Harrison use IO::File; use IO::Socket; +my $qflag=0; +if (@ARGV) { + my $arg=shift @ARGV; + $qflag=1 if $arg eq 'quick'; +} + # -------------------------------------------------- Non-critical communication sub reply { my ($cmd,$server)=@_; @@ -55,12 +62,14 @@ ENDERROUT $perlvar{$varname}=$varvalue; } } + delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed + delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed } # --------------------------------------- Make sure that LON-CAPA is configured # I only test for one thing here (lonHostID). This is just a safeguard. if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) { - print("User ID mismatch. This program must be run as user 'www'\n"); + print("Unconfigured machine.\n"); $emailto=$perlvar{'lonSysEMail'}; $hostname=`/bin/hostname`; chop $hostname; @@ -277,7 +286,7 @@ print $fh ""; # # Do not run for now # -if ($perlvar{'lonRole'} eq "library" && 1==0) { +if ($perlvar{'lonRole'} eq "library") { print $fh '

lonsql

Log

';
     
@@ -308,22 +317,24 @@ if ($perlvar{'lonRole'} eq "library" &&
     } else {
 	$errors++;
 	print $fh "

lonsql not running, trying to start

"; - system("$perlvar{'lonDaemons'}/lonsql"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); + sleep 120 unless $qflag; if (-e $lonsqlfile) { print $fh "Seems like it started ...

"; my $lfh=IO::File->new("$lonsqlfile"); my $lonsqlpid=<$lfh>; chomp($lonsqlpid); - sleep 30; + sleep 30 unless $qflag; if (kill 0 => $lonsqlpid) { print $fh "

lonsql at pid $lonsqlpid responding

"; } else { $errors++; $errors++; print $fh "

lonsql at pid $lonsqlpid not responding

"; print $fh "Give it one more try ...

"; - system("$perlvar{'lonDaemons'}/lonsql"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors"); + sleep 120 unless $qflag; } } else { print $fh "Seems like that did not work!

"; @@ -409,22 +420,24 @@ if (-e $londfile) { if ($restartflag==1) { $errors++; print $fh "

lond not running, trying to start

"; - system("$perlvar{'lonDaemons'}/lond"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); + sleep 120 unless $qflag; if (-e $londfile) { print $fh "Seems like it started ...

"; my $lfh=IO::File->new("$londfile"); my $londpid=<$lfh>; chomp($londpid); - sleep 30; + sleep 30 unless $qflag; if (kill 0 => $londpid) { print $fh "

lond at pid $londpid responding

"; } else { $errors++; $errors++; print $fh "

lond at pid $londpid not responding

"; print $fh "Give it one more try ...

"; - system("$perlvar{'lonDaemons'}/lond"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors"); + sleep 120 unless $qflag; } } else { print $fh "Seems like that did not work!

"; @@ -510,22 +523,24 @@ if (-e $loncfile) { if ($restartflag==1) { $errors++; print $fh "

lonc not running, trying to start

"; - system("$perlvar{'lonDaemons'}/lonc"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); + sleep 120 unless $qflag; if (-e $loncfile) { print $fh "Seems like it started ...

"; my $lfh=IO::File->new("$loncfile"); my $loncpid=<$lfh>; chomp($loncpid); - sleep 30; + sleep 30 unless $qflag; if (kill 0 => $loncpid) { print $fh "

lonc at pid $loncpid responding

"; } else { $errors++; $errors++; print $fh "

lonc at pid $loncpid not responding

"; print $fh "Give it one more try ...

"; - system("$perlvar{'lonDaemons'}/lonc"); - sleep 120; + system( + "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors"); + sleep 120 unless $qflag; } } else { print $fh "Seems like that did not work!

";