debian/monitoring-plugins-cyconet
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding check_apache_balancer_members

Browse source
This commit is contained in:
Jan Wagner 2017-05-29 15:12:21 +02:00
parent 6af92e5dd3
commit 581fc6ce92
7 changed files with 139 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

55
check_apache_balancer_members/check_apache_balancer_members Normal file
View file

@ -0,0 +1,55 @@
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use Data::Dump qw(dump); #libdata-dump-perl
use Nagios::Plugin; #libnagios-plugin-perl
use Web::Scraper; #libweb-scraper-perl
my $np = Nagios::Plugin->new(
usage => '',
plugin => $0,
shortname => "Balancer Members",
blurb => 'Apache 2 Load Balancer Manager Members',
timeout => 10
);
$np->add_arg(
spec => 'hostname|h=s',
help => 'hostname of the apache server',
required => 1
);
$np->add_arg(
spec => 'path|p=s',
help => 'path to the balancer url',
required => 1
);
$np->getopts;
my $response = get("http://".$np->opts->hostname."/".$np->opts->path);
my $s = scraper {
process 'table:nth-of-type(2) tr:not(:first-child)', 'members[]' => scraper {
process 'td:nth-of-type(1)', 'worker' => 'TEXT';
process 'td:nth-of-type(6)', 'status' => 'TEXT';
process 'td:nth-of-type(7)', 'elected' => 'TEXT';
process 'td:nth-of-type(8)', 'to' => 'TEXT';
process 'td:nth-of-type(9)', 'from' => 'TEXT';
}
};
my $results = $s->scrape($response);
my @problemMembers = ();
my $at_least_one_is_ok = 0;
foreach my $member (@{$results->{'members'}})
{
push @problemMembers, $member->{'worker'} if $member->{'status'} =~ /Err/i;
$at_least_one_is_ok = 1 if $member->{'status'} =~ /Ok\s?$/;
}
$np->nagios_exit('CRITICAL', "No members are Ok; there is a problem") unless $at_least_one_is_ok;
$np->nagios_exit('CRITICAL', "Members have errors: " . join (", ", @problemMembers)) if (@problemMembers > 0);
$np->nagios_exit('OK', "All members functioning correctly");