]> git.etc.gen.nz Git - spong.git/commitdiff
skip a $check if var is null string.
authorStephen L Johnson <sjohnson@monsters.org>
Fri, 10 May 2002 20:15:19 +0000 (20:15 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Fri, 10 May 2002 20:15:19 +0000 (20:15 +0000)
src/lib/Spong/Client/plugins/check_processes

index 5cafdba69b0cd76278aa49deacb207b8ab15db60..85fd31f44f6502f84a0ec8114926326038ccf415 100755 (executable)
@@ -6,7 +6,7 @@ $CHECKFUNCS{'processes'} = \&check_processes;
 # This routine checks processes running on the host and makes sure that
 # the important ones are running
 
-# $Id: check_processes,v 1.5 2001/09/16 18:08:39 sljohnson Exp $
+# $Id: check_processes,v 1.6 2002/05/10 20:15:19 sljohnson Exp $
 
 use Spong::SafeExec qw(safe_exec);
 
@@ -18,6 +18,7 @@ sub check_processes {
    @plist = safe_exec($PS,30);
 
    foreach $check ( @JOBSWARN, @PROCSWARN ) {
+      next if $check eq '';
       $cnt = 1;
       if ($check =~ /^([^:]+):(.*)$/o) {
         $cnt = $2;
@@ -28,6 +29,7 @@ sub check_processes {
       else { $message .= join ('',@ret); }
    }
    foreach $check ( @JOBSCRIT, @PROCSCRIT ) {
+      next if $check eq '';
       $cnt = 1;
       if ($check =~ /^([^:]+):(.*)$/o) {
         $cnt = $2;