[LON-CAPA-cvs] cvs: loncom / loncron

[raeburn]

raeburn		Fri Oct 20 11:54:55 2017 EDT

  Modified files:              
    /loncom	loncron 
  Log:
  - Warnings count excludes items in lonnet.perm.log for nodes which are no
    longer part of the cluster.
  
  
Index: loncom/loncron
diff -u loncom/loncron:1.104 loncom/loncron:1.105
--- loncom/loncron:1.104	Tue Feb 28 05:42:06 2017
+++ loncom/loncron	Fri Oct 20 11:54:54 2017
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.104 2017/02/28 05:42:06 raeburn Exp $
+# $Id: loncron,v 1.105 2017/10/20 11:54:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -646,9 +646,15 @@
 
     my $unsend=0;
 
+    my %hostname = &Apache::lonnet::all_hostnames();
+    my $numhosts = scalar(keys(%hostname));
+
     my $dfh=IO::File->new("$perlvar{'lonDaemons'}/logs/lonnet.perm.log");
     while (my $line=<$dfh>) {
 	my ($time,$sdf,$dserv,$dcmd)=split(/:/,$line);
+        if ($numhosts) {
+            next unless ($hostname{$dserv});
+        }
 	if ($sdf eq 'F') { 
 	    my $local=localtime($time);
 	    &log($fh,"<b>Failed: $time, $dserv, $dcmd</b><br />");
@@ -675,8 +681,6 @@
     }
     &log($fh,"</pre>\n");
     close (DFH);
-    my %hostname = &Apache::lonnet::all_hostnames();
-    my $numhosts = scalar(keys(%hostname));
 # pong to all servers that have delayed messages
 # this will trigger a reverse connection, which should flush the buffers
     foreach my $tryserver (sort(keys(%servers))) {