Monitoring/check_json_fork
1
0
Fork 0
mirror of https://github.com/c-kr/check_json.git synced 2024-11-23 10:53:47 +01:00
Code Issues Releases Wiki Activity

first draft

Browse Source
This commit is contained in:
Benjamin Rokseth 2014-01-23 15:54:07 +01:00
parent 787ade934c
commit 33d2c1209a
1 changed files with 58 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
check_json.pl
View File

@ -3,21 +3,24 @@
use warnings; use warnings;
use strict; use strict;
use LWP::UserAgent; use LWP::UserAgent;
use JSON 'decode_json'; use JSON;
use Nagios::Plugin; use Nagios::Plugin;
use Data::Dumper; use Data::Dumper;
my $np = Nagios::Plugin->new( my $np = Nagios::Plugin->new(
usage => "Usage: %s [ -v|--verbose ] [-U <URL>] [-t <timeout>] " usage => "Usage: %s -U <URL> -a|--attribute <attribute> [-t|--timeout <timeout>] "
. "[ -c|--critical <threshold> ] [ -w|--warning <threshold> ] " . "[ -c|--critical <threshold> ] [ -w|--warning <threshold> ] "
. "[ -a | --attribute ] <attribute>", . "[ -a|--attribute <attribute> ] "
version => '0.1', . "[ -D|--divisor <divisor> ] "
. "[ -p|--perfvars <fields> ]",
version => '0.2',
blurb => 'Nagios plugin to check JSON attributes via http(s)', blurb => 'Nagios plugin to check JSON attributes via http(s)',
extra => "\nExample: \n" extra => "\nExample: \n"
. "check_json.pl -U http://192.168.5.10:9332/local_stats -a '{shares}->{dead}' -w :5 -c :10", . "check_json.pl -U http://192.168.5.10:9332/local_stats -a '{shares}->{dead}' -w :5 -c :10",
url => 'https://github.com/c-kr/check_json', url => 'https://github.com/c-kr/check_json',
plugin => 'check_json', plugin => 'check_json',
timeout => 15, timeout => 15,
shortname => "Check JSON status API",
); );
# add valid command line options and build them into your usage/help documentation. # add valid command line options and build them into your usage/help documentation.
@ -47,19 +50,24 @@ $np->add_arg(
. 'http://nagiosplug.sourceforge.net/developer-guidelines.html#THRESHOLDFORMAT ' . 'http://nagiosplug.sourceforge.net/developer-guidelines.html#THRESHOLDFORMAT '
. 'for the threshold format. ', . 'for the threshold format. ',
); );
$np->add_arg(
spec => 'perfvars|p=s',
help => '-p, --perfvars INTEGER:INTEGER . CSV list of fields from JSON response to include in perfdata ',
);
# Parse @ARGV and process standard arguments (e.g. usage, help, version) ## Parse @ARGV and process standard arguments (e.g. usage, help, version)
$np->getopts; $np->getopts;
if ($np->opts->verbose) { (print Dumper ($np))};
## GET URL ## GET URL
my $ua = LWP::UserAgent->new; my $ua = LWP::UserAgent->new;
$ua->agent('check_json/0.1'); $ua->agent('check_json/0.2');
$ua->default_header('Accept' => 'application/json'); $ua->default_header('Accept' => 'application/json');
$ua->protocols_allowed( [ 'http', 'https'] ); $ua->protocols_allowed( [ 'http', 'https'] );
$ua->parse_head(0); $ua->parse_head(0);
$ua->timeout($np->opts->timeout); $ua->timeout($np->opts->timeout);
if ($np->opts->verbose) { (print Dumper ($ua))};
my $response = ($ua->get($np->opts->URL)); my $response = ($ua->get($np->opts->URL));
@ -71,32 +79,60 @@ if ($response->is_success) {
$np->nagios_exit(CRITICAL, "Connection failed: ".$response->status_line); $np->nagios_exit(CRITICAL, "Connection failed: ".$response->status_line);
} }
## Parse JSON
my $json_response = decode_json($response->content); my $json_response = decode_json($response->content);
if ($np->opts->verbose) { (print Dumper ($json_response))}; if ($np->opts->verbose) { (print Dumper ($json_response))};
my $value; my $check_value;
my $exec = '$value = $json_response->'.$np->opts->attribute; my $check_value_str = '$check_value = $json_response->'.$np->opts->attribute;
if ($np->opts->verbose) {print "EXEC is: $exec \n"};
eval $exec;
if (!defined $value) { # if ($np->opts->verbose) { (print Dumper ($exec))};
eval $check_value_str;
#$attribute_value = $json_response->{eval $np->opts->attribute};
if (!defined $check_value) {
$np->nagios_exit(UNKNOWN, "No value received"); $np->nagios_exit(UNKNOWN, "No value received");
} }
if (defined $np->opts->divisor) { if (defined $np->opts->divisor) {
$value = $value/$np->opts->divisor; $check_value = $check_value/$np->opts->divisor;
} }
my $result = $np->check_threshold($value); my $result = $np->check_threshold($check_value);
$np->add_perfdata( my @perfdata;
label => 'value',
value => $value, # routine to add perfdata from JSON response based on a loop of keys given in perfvals (csv)
threshold => $np->threshold(), if ($np->opts->perfvars) {
); foreach my $key (split(',', $np->opts->perfvars)) {
# use last element of key as label
my $label = (split('->', $key))[-1];
$label =~ s/[^a-zA-Z0-9_-]//g ;
my $perf_val;
$perf_val = eval '$json_response->'.$key;
print Dumper ("JSON key: ".$label.", JSON val: " . eval $perf_val);
if ($np->opts->verbose) { print Dumper ("JSON key: ".$label.", JSON val: " . eval $perf_val) };
if ( defined($perf_val) ) {
push(@perfdata, {label => lc $label, value => $perf_val});
$np->add_perfdata(
label => lc $label,
value => $perf_val,
#threshold => $np->threshold(),
);
}
}
}
sub pp {
my $h = shift();
qq[{${\(join',',map"$_=>$h->{$_}",keys%$h)}}]
}
print Dumper (@perfdata);
$np->nagios_exit( $np->nagios_exit(
return_code => $result, return_code => $result,
message => $value, message => pp @perfdata,
); );