From: Stephen L Johnson <sjohnson@monsters.org>
Date: Wed, 16 Jul 2003 17:50:40 +0000 (+0000)
Subject: added code to skip a status that are already purple in the stale data scan
X-Git-Tag: spong-2_8_0-beta1~36
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=31c824b3f237fa1d209e5c0dbab34f12b691e00b;p=spong.git

added code to skip a status that are already purple in the stale data scan
---

diff --git a/src/spong-server.pl b/src/spong-server.pl
index a3ffd25..1efc634 100755
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -6,7 +6,7 @@
 # There are one or more update processes that listen for status updates 
 # from client programs.
 
-# $Id: spong-server.pl,v 1.60 2003/06/02 20:54:27 sljohnson Exp $
+# $Id: spong-server.pl,v 1.61 2003/07/16 17:50:40 sljohnson Exp $
 
 use lib "@@LIBDIR@@";
 
@@ -451,7 +451,9 @@ sub listen_for_queries {
          foreach $host ( Spong::HostList->new( "all" )->hosts() ) {
             foreach $service ( $host->service_names() ) {
               $main::SERVICES{$service}=1;
-              my ($color )=($host->service($service))->color();
+              my ($rcolor)=($host->service($service))->rcolor();  # If real color is purple
+              next if $rcolor eq 'purple';                        # don't bother updating
+              my ($color)=($host->service($service))->color();
               my ($summary)=($host->service($service))->summary();
               my ($message)=($host->service($service))->message();
               my ($stime) = time();