# 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);
@plist = safe_exec($PS,30);
foreach $check ( @JOBSWARN, @PROCSWARN ) {
+ next if $check eq '';
$cnt = 1;
if ($check =~ /^([^:]+):(.*)$/o) {
$cnt = $2;
else { $message .= join ('',@ret); }
}
foreach $check ( @JOBSCRIT, @PROCSCRIT ) {
+ next if $check eq '';
$cnt = 1;
if ($check =~ /^([^:]+):(.*)$/o) {
$cnt = $2;