Check for hosts without alerts

Beautiful!   Thank you for sharing this.


On 6/2/08, Stewart L <user-a046134cfd06@xymon.invalid> wrote:

worked one out myself... Let me know if there is an easier way...

#!/usr/bin/perl

##########################################################################################
#
# no-alerts.pl - This script uses bbhostgrep to get a list of sevrers, then
fetches their
#       info test.  It then parses this looking for 'No Alerts Defined' It
then outputs
#       hostname of the machines that are missing alert config.
#
#       Created by Stewart Larsen
#
##########################################################################################


use strict;
use LWP::Simple;

# Set debug to 1 to see the hosts and URL as you loop through.
my $debug = 0;

#Token in bb-hosts to indicate we need to run firewall tests on this device
my $test_name = '*';

#server to poll for information
my $BBDISP = "192.168.1.1";


# Paths - Fetch all hosts and trim for just the host name.  Then sort and
unique the list
my $BBHOSTGREP="/usr/lib/hobbit/server/bin/bbhostgrep '*'| /bin/cut -d' '
-f2 | /bin/sort  | /usr/bin/uniq";

open (INPUT, "-|",$BBHOSTGREP ) or die "Cannot open input: $!\n";
while(<INPUT>)
{
        chomp (my $host = $_);
        my $fetch_URL = 'http://
'.$BBDISP.'/hobbit-cgi/bb-hostsvc.sh?HOST='.$host.'&SERVICE=info';
        print "$host: $fetch_URL\n" if $debug;

        my $content = get $fetch_URL;
        if (!defined $content)
        {
                warn "Couldn't get $fetch_URL";
                next;
        }

        if($content =~ m/No Alerts Defined/i)
        {
                print "$host has no alerts defined\n";
        }
}
close INPUT;


On Mon, Jun 2, 2008 at 8:53 AM, Stewart L <user-a046134cfd06@xymon.invalid> wrote:

Is there an easy way to check for hosts without alerts defined?   I have
about 4000 hosts being monitored and some do not have alerts defined.   I
would hate to have to check the info test for each of those manually.


--
Stewart

You only lose what you cling to.

--
Stewart

You only lose what you cling to.

-- 
Josh Luthman
Office: XXX-XXX-XXXX
Direct: XXX-XXX-XXXX
XXXX Wayne St
Suite XXXX
Troy, OH XXXXX

Those who don't understand UNIX are condemned to reinvent it, poorly.
--- Henry Spencer