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}};
|
