[Mon-commit] mon CHANGES,1.4,1.5 mon,1.27,1.28

[Jim T. <tr...@us...>]

Update of /cvsroot/mon/mon
In directory vz-cvs-4.sog:/tmp/cvs-serv7258

Modified Files:
	CHANGES mon 
Log Message:
fixed problem where exit status of alerts was not being called

Index: CHANGES
===================================================================
RCS file: /cvsroot/mon/mon/CHANGES,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** CHANGES	18 Apr 2011 03:12:06 -0000	1.4
--- CHANGES	20 Jul 2011 15:04:59 -0000	1.5
***************
*** 1,4 ****
--- 1,10 ----
  $Id$
  
+ Wed Jul 20 10:26:29 EDT 2011 trockij
+ -------------------------------------------
+ 
+ -fixed problem where exit status of alerts was not being called
+ 
+ 
  Sun Apr 17 23:09:43 EDT 2011 trockij
  -------------------------------------------

Index: mon
===================================================================
RCS file: /cvsroot/mon/mon/mon,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** mon	20 Jun 2011 17:26:25 -0000	1.27
--- mon	20 Jul 2011 15:04:59 -0000	1.28
***************
*** 3224,3232 ****
  
      $tmnow = time;
-     return if (keys %running == 0);
  
      while ((my $p = waitpid (-1, &WNOHANG)) >0)
      {
! 	next if (!exists $runningpid{$p});
  	my ($group, $service) = split (/\//, $runningpid{$p});
  	my $sref = \%{$watch{$group}->{$service}};
--- 3224,3234 ----
  
      $tmnow = time;
  
      while ((my $p = waitpid (-1, &WNOHANG)) >0)
      {
! 	if (!exists $runningpid{$p})
! 	{
! 	    next;
! 	}
  	my ($group, $service) = split (/\//, $runningpid{$p});
  	my $sref = \%{$watch{$group}->{$service}};