From 64497905348da4b557324ac722350d4ffc1bace5 Mon Sep 17 00:00:00 2001
From: jweiss <jweiss>
Date: Wed, 6 Feb 2008 23:40:30 +0000
Subject: [PATCH] add duplicate supression for services move https-cert
 dependency outside the loop where it belongs don't generate service
 dependencies for virtual hosts

---
 gen/nagios-wsh.gen | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/gen/nagios-wsh.gen b/gen/nagios-wsh.gen
index ab61299e..c33e559b 100755
--- a/gen/nagios-wsh.gen
+++ b/gen/nagios-wsh.gen
@@ -85,6 +85,7 @@ END
 		$ucservice =~ tr/a-z/A-Z/;
 		my $lcservice = $service;
 		$lcservice =~ tr/A-Z/a-z/;
+		next if $services{$ucservice};
 		$services{$ucservice}++;
 		print OUT <<END;
 define service{
@@ -104,6 +105,7 @@ define serviceescalation{
 
 END
 	    } elsif ($service =~ /^HTTPS-CERT$/i) {
+		next if $services{'HTTPS-CERT'};
 		$services{'HTTPS-CERT'}++;
 		print OUT <<END;
 define service{
@@ -131,11 +133,13 @@ END
 		    }
 		    # prep a bunch of variables for the text we'll spit out
 		    my $description = "$protocol-$server-$path";
+		    $description =~ tr/A-Z/a-z/;
+		    next if $services{$description};
+		    $services{$description}++;
 		    $description =~ s/-\//-/g;
 		    $description =~ s/\/-/-/g;
 		    $description =~ s/\//-/g;
 		    $description =~ s/-$//g;
-		    $description =~ tr/A-Z/a-z/;
 		    my $ucdescription = $description;
 		    $ucdescription =~ tr/a-z/A-Z/;
 		    my $SSL = "";
@@ -167,7 +171,7 @@ define serviceescalation{
 	}
 
 END
-		    if ($services{$protocol}) {
+		    if ($services{$protocol} && $name eq $server) {
 		    print OUT <<END;
 define servicedependency{
 	dependent_host_name		$name
@@ -184,9 +188,9 @@ END
 		    printf STDERR "Machine %s has unknown service %s; ignoring\n", $name, $service;
 		}
 	    }  # if SERVICE else URL
-
-	    if ($services{'HTTPS'} && $services{'HTTPS-CERT'}) {
-		print OUT <<END;
+	} # while @tags
+	if ($services{'HTTPS'} && $services{'HTTPS-CERT'}) {
+	    print OUT <<END;
 define servicedependency{
 	dependent_host_name		$name
 	dependent_service_description	HTTPS-CERT
@@ -197,7 +201,6 @@ define servicedependency{
 	}
 
 END
-	    }
 	}
     } # while $sth->fetchrow_array
 
-- 
2.45.1