[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Check for hosts without alerts



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 <stewartl42 (at) gmail.com> 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.