From e5ac2c184451abec2b8b612a8be8ee5085ce25b0 Mon Sep 17 00:00:00 2001
From: jweiss <jweiss>
Date: Mon, 4 Feb 2008 23:45:41 +0000
Subject: [PATCH] handle deep URLs and virtual hosts

---
 gen/nagios-wsh.gen | 74 ++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 71 insertions(+), 3 deletions(-)

diff --git a/gen/nagios-wsh.gen b/gen/nagios-wsh.gen
index 3700360d..ab61299e 100755
--- a/gen/nagios-wsh.gen
+++ b/gen/nagios-wsh.gen
@@ -113,9 +113,77 @@ define service{
         }
 
 END
-	    } else {
-		printf STDERR "Machine %s has unknown service %s; ignoring\n", $name, $service;
-	    }
+	    } else { # Hopefully this is a URL of some sort
+		my $protocol;
+		my $server;
+		my $path;
+		if ($service =~ /^([a-z]*):\/\/([^\/]*)(.*)$/ ) {
+		    $protocol = $1;
+		    $server = $2;
+		    $path = $3;
+		    $protocol =~ tr/a-z/A-Z/;
+		    $server =~ tr/A-Z/a-z/;
+		}
+		if ($protocol =~ /^HTTP(|S)$/) {
+		    $path = "/" if ($path eq "");
+		    if ($server eq $name && $path eq "/") { # this is a simple service
+			push @tags,$protocol;
+		    }
+		    # prep a bunch of variables for the text we'll spit out
+		    my $description = "$protocol-$server-$path";
+		    $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 = "";
+		    if ($protocol eq "HTTPS") {
+			$SSL = "--SSL -k /var/nagios/etc/cert.pem";
+		    }
+		    print OUT <<END;
+define command{
+	command_name	check_$name-$description
+	command_line	\$USER1\$/check_http -H $server $SSL -u $path
+	}
+
+define service{
+	host_name		$name
+	name			$description-service
+	service_description	$ucdescription
+	contact_groups		wsh
+	check_command		check_$name-$description
+	use			generic-service
+	}
+
+define serviceescalation{
+	host_name		$name
+	contact_groups		wsh,wsh-mail
+	service_description	$ucdescription
+	first_notification	2
+	last_notification	0
+	notification_interval	0
+	}
+
+END
+		    if ($services{$protocol}) {
+		    print OUT <<END;
+define servicedependency{
+	dependent_host_name		$name
+	dependent_service_description	$ucdescription
+	host_name			$name
+	service_description		$protocol
+	execution_failure_criteria	n
+	notification_failure_criteria	w,u,c
+	}
+
+END
+		    }
+		} else {
+		    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;
-- 
2.45.2