stop_after flag not being cleared after flagged service was checked

diff --git a/src/spong-network.pl b/src/spong-network.pl
index 907f76bbf9f1536886ed0a2511c6f4fc6ac8fd34..506ab4053cc98618ba67da5dee9b7dd160c71454 100755 (executable)
--- a/src/spong-network.pl
+++ b/src/spong-network.pl
@@ -17,7 +17,7 @@
 # (2) Converted checks to new plugin mechanism (Stephen Johnson May 28, 1999)
 #     Added user-configurable escalation mechanism
 #
-# $Id: spong-network.pl,v 1.35 2001/05/07 19:19:24 sljohnson Exp $
+# $Id: spong-network.pl,v 1.36 2001/05/25 14:30:46 sljohnson Exp $
 
 use Carp;
 use lib "@@LIBDIR@@";
@@ -101,6 +101,7 @@ while( 1 ) {
             $stopafter = 1;
          } else {
             $check = $_;
+            $stopafter = 0;
          }
 
          $0 = "spong-network (checking $host/$check)";
@@ -114,7 +115,7 @@ while( 1 ) {
          my $laststatus = $HOSTS{$host}{'service'}{$check}{'laststatus'}
                        || 'green';
 
-         if ($stopafter && $laststatus ne 'green') {
+         if ($stopafter && $laststatus eq 'red') {
             debug("Check $check failed for host $host," .
                   " skipping remaining tests", 3);
              last;
@@ -255,6 +256,7 @@ sub do_set_clear {
          $stop_after = 1;
       } else {
          $s = $_;
+         $stopafter = 0;
       }
 
       # If our service