Diff for /loncom/loncron between versions 1.85 and 1.88

version 1.85, 2010/07/20 02:42:27 version 1.88, 2011/04/23 16:18:49
Line 691  sub write_loncaparevs { Line 691  sub write_loncaparevs {
         foreach my $id (sort(keys(%hostname))) {          foreach my $id (sort(keys(%hostname))) {
             if ($id ne '') {              if ($id ne '') {
                 my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');                  my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
                 if ($loncaparev =~ /^[\d.\-]+$/) {                  if ($loncaparev =~ /^[\w.\-]+$/) {
                     print $fh $id.':'.$loncaparev."\n";                      print $fh $id.':'.$loncaparev."\n";
                 }                  }
             }              }
Line 823  sub main () { Line 823  sub main () {
             close($fh);              close($fh);
             my $execpath = $perlvar{'lonDaemons'}.'/lciptables';              my $execpath = $perlvar{'lonDaemons'}.'/lciptables';
             system("$execpath $tmpfile");              system("$execpath $tmpfile");
             unlink($fh);              unlink($tmpfile);
         }          }
     }      }
   
Line 866  sub main () { Line 866  sub main () {
  &check_delayed_msg($fh);   &check_delayed_msg($fh);
  &finish_logging($fh);   &finish_logging($fh);
  &log_simplestatus();   &log_simplestatus();
   
  if ($totalcount>200 && !$noemail) { &send_mail(); }  
     }  
     if (!$justcheckconnections && !$justreload) {  
         &write_loncaparevs();          &write_loncaparevs();
         &write_serverhomeIDs();          &write_serverhomeIDs();
   
    if ($totalcount>200 && !$noemail) { &send_mail(); }
     }      }
 }  }
   

Removed from v.1.85  
changed lines
  Added in v.1.88


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