[BACK]Return to loncron CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.18 and 1.22

version 1.18, 2001/03/15 13:20:46 version 1.22, 2001/08/27 13:54:50
Line 9 Line 9
 #  #
 # 7/14,7/15,7/19,7/21,7/22,11/18,  # 7/14,7/15,7/19,7/21,7/22,11/18,
 # 2/8 Gerd Kortemeyer  # 2/8 Gerd Kortemeyer
 # Dec 00 Scott Harrison  # 12/6/2000,12/8 Scott Harrison
 # 12/23 Gerd Kortemeyer  # 12/23 Gerd Kortemeyer
 # 02/12/2001 Scott Harrison  # YEAR=2001
   # 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison
   
 use IO::File;  use IO::File;
 use IO::Socket;  use IO::Socket;
   
   my $qflag=0;
   if (@ARGV) {
       my $arg=shift @ARGV;
       $qflag=1 if $arg eq 'quick';
   }
   
 # -------------------------------------------------- Non-critical communication  # -------------------------------------------------- Non-critical communication
 sub reply {  sub reply {
     my ($cmd,$server)=@_;      my ($cmd,$server)=@_;
Line 56  ENDERROUT Line 63  ENDERROUT
            $perlvar{$varname}=$varvalue;             $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  # --------------------------------------- Make sure that LON-CAPA is configured
Line 275  print $fh "</pre>"; Line 284  print $fh "</pre>";
   
   
 # ---------------------------------------------------------------------- lonsql  # ---------------------------------------------------------------------- lonsql
 #  
 # Do not run for now  my $restartflag=1;
 #  
 if ($perlvar{'lonRole'} eq "library") {  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 302  if ($perlvar{'lonRole'} eq "library") { Line 310  if ($perlvar{'lonRole'} eq "library") {
  chomp($lonsqlpid);   chomp($lonsqlpid);
  if (kill 0 => $lonsqlpid) {   if (kill 0 => $lonsqlpid) {
     print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>";      print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>";
       $restartflag=0;
  } else {   } else {
     $errors++; $errors++;      $errors++; $errors++;
     print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";      print $fh "<h3>lonsql at pid $lonsqlpid not responding</h3>";
       # Intelligently handle this.
       # Possibility #1: there is no process
       # Solution: remove .pid file and restart
       if (getpgrp($lonsqlpid)==-1) {
    unlink($lonsqlfile);
    $restartflag=1;
       }
       else {
    # Possibility #2: there is a live process that is not
    # responding for an unknown reason
    # Solution: kill parent and children processes, remove .pid
    # and restart
    `killall -9 lonsql`;
    unlink($lonsqlfile);
    $restartflag=1;
       }
  }   }
     } else {   print $fh 
       "<h3>Deciding to clean up stale .pid file and restart lonsql</h3>";
       }
       if ($restartflag==1) {
  $errors++;   $errors++;
  print $fh "<h3>lonsql not running, trying to start</h3>";   print $fh "<h3>lonsql not running, trying to start</h3>";
  system(   system(
  "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");   "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
  sleep 120;   sleep 120 unless $qflag;
  if (-e $lonsqlfile) {   if (-e $lonsqlfile) {
     print $fh "Seems like it started ...<p>";      print $fh "Seems like it started ...<p>";
     my $lfh=IO::File->new("$lonsqlfile");      my $lfh=IO::File->new("$lonsqlfile");
     my $lonsqlpid=<$lfh>;      my $lonsqlpid=<$lfh>;
     chomp($lonsqlpid);      chomp($lonsqlpid);
     sleep 30;      sleep 30 unless $qflag;
     if (kill 0 => $lonsqlpid) {      if (kill 0 => $lonsqlpid) {
  print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>";   print $fh "<h3>lonsql at pid $lonsqlpid responding</h3>";
     } else {      } else {
Line 326  if ($perlvar{'lonRole'} eq "library") { Line 354  if ($perlvar{'lonRole'} eq "library") {
  print $fh "Give it one more try ...<p>";   print $fh "Give it one more try ...<p>";
  system(   system(
  "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");   "$perlvar{'lonDaemons'}/lonsql 2>>$perlvar{'lonDaemons'}/logs/lonsql_errors");
  sleep 120;   sleep 120 unless $qflag;
     }      }
  } else {   } else {
     print $fh "Seems like that did not work!<p>";      print $fh "Seems like that did not work!<p>";
Line 379  print $fh "</pre>"; Line 407  print $fh "</pre>";
   
 my $londfile="$perlvar{'lonDaemons'}/logs/lond.pid";  my $londfile="$perlvar{'lonDaemons'}/logs/lond.pid";
   
 my $restartflag=1;  $restartflag=1;
 if (-e $londfile) {      if (-e $londfile) {    
    my $lfh=IO::File->new("$londfile");     my $lfh=IO::File->new("$londfile");
    my $londpid=<$lfh>;     my $londpid=<$lfh>;
Line 414  if ($restartflag==1) { Line 442  if ($restartflag==1) {
    print $fh "<h3>lond not running, trying to start</h3>";     print $fh "<h3>lond not running, trying to start</h3>";
    system(     system(
      "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");       "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
    sleep 120;     sleep 120 unless $qflag;
    if (-e $londfile) {     if (-e $londfile) {
        print $fh "Seems like it started ...<p>";         print $fh "Seems like it started ...<p>";
        my $lfh=IO::File->new("$londfile");         my $lfh=IO::File->new("$londfile");
        my $londpid=<$lfh>;         my $londpid=<$lfh>;
        chomp($londpid);         chomp($londpid);
        sleep 30;         sleep 30 unless $qflag;
        if (kill 0 => $londpid) {         if (kill 0 => $londpid) {
           print $fh "<h3>lond at pid $londpid responding</h3>";            print $fh "<h3>lond at pid $londpid responding</h3>";
        } else {         } else {
Line 429  if ($restartflag==1) { Line 457  if ($restartflag==1) {
           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/lond_errors");   "$perlvar{'lonDaemons'}/lond 2>>$perlvar{'lonDaemons'}/logs/lond_errors");
           sleep 120;            sleep 120 unless $qflag;
        }         }
    } else {     } else {
        print $fh "Seems like that did not work!<p>";         print $fh "Seems like that did not work!<p>";
Line 517  if ($restartflag==1) { Line 545  if ($restartflag==1) {
    print $fh "<h3>lonc not running, trying to start</h3>";     print $fh "<h3>lonc not running, trying to start</h3>";
  system(   system(
  "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");   "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
    sleep 120;     sleep 120 unless $qflag;
    if (-e $loncfile) {     if (-e $loncfile) {
        print $fh "Seems like it started ...<p>";         print $fh "Seems like it started ...<p>";
        my $lfh=IO::File->new("$loncfile");         my $lfh=IO::File->new("$loncfile");
        my $loncpid=<$lfh>;         my $loncpid=<$lfh>;
        chomp($loncpid);         chomp($loncpid);
        sleep 30;         sleep 30 unless $qflag;
        if (kill 0 => $loncpid) {         if (kill 0 => $loncpid) {
           print $fh "<h3>lonc at pid $loncpid responding</h3>";            print $fh "<h3>lonc at pid $loncpid responding</h3>";
        } else {         } else {
Line 532  if ($restartflag==1) { Line 560  if ($restartflag==1) {
           print $fh "Give it one more try ...<p>";            print $fh "Give it one more try ...<p>";
    system(     system(
  "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");   "$perlvar{'lonDaemons'}/lonc 2>>$perlvar{'lonDaemons'}/logs/lonc_errors");
           sleep 120;            sleep 120 unless $qflag;
        }         }
    } else {     } else {
        print $fh "Seems like that did not work!<p>";         print $fh "Seems like that did not work!<p>";
Line 672  if ($totalcount>200) { Line 700  if ($totalcount>200) {
    $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";     $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
    $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";      $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; 
    system(     system(
  "metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");   "metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html")
       unless $qflag;
 }  }
 1;  1;
   
Removed from v.1.18  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>