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

Diff for /loncom/loncron between versions 1.38 and 1.40

version 1.38, 2003/04/07 18:19:23 version 1.40, 2003/07/29 21:00:21
Line 316  print $fh "</pre>"; Line 316  print $fh "</pre>";
 # ---------------------------------------------------------------------- lonsql  # ---------------------------------------------------------------------- lonsql
   
 my $restartflag=1;  my $restartflag=1;
 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>';
     print "lonsql\n";      print "lonsql\n";
     if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){      if (-e "$perlvar{'lonDaemons'}/logs/lonsql.log"){
Line 411  if ($perlvar{'lonRole'} eq "library") { Line 409  if ($perlvar{'lonRole'} eq "library") {
     }      }
   
     &errout($fh);      &errout($fh);
 }  
 # ------------------------------------------------------------------------ lond  # ------------------------------------------------------------------------ lond
   
 print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';  print $fh '<hr><a name="lond"><h2>lond</h2><h3>Log</h3><pre>';
Line 806  rename ("$statusdir/newstatus.html","$st Line 803  rename ("$statusdir/newstatus.html","$st
 if ($totalcount>200) {  if ($totalcount>200) {
    print "mailing\n";     print "mailing\n";
    $emailto="$perlvar{'lonAdmEMail'}";     $emailto="$perlvar{'lonAdmEMail'}";
    if ($totalcount>600) {     if ($totalcount>1000) {
       $emailto.=",$perlvar{'lonSysEMail'}";        $emailto.=",$perlvar{'lonSysEMail'}";
    }     }
    $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";      $subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices"; 
Removed from v.1.38  
changed lines
  Added in v.1.40

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