Monitoring/check_json_fork
1
0
Fork 0
mirror of https://github.com/c-kr/check_json.git synced 2025-04-04 08:13:45 +02:00
Code Issues Releases Wiki Activity

changed fixed string comparison to regex comparison.

Browse Source 
Added custom header option.
Value comparison for WARNING status.
This commit is contained in:
nredi 2022-02-18 14:10:14 +01:00
parent 19961cc5b6
commit 64b6b789a7
1 changed files with 40 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
check_json.pl
View File

@ -1,20 +1,22 @@
#!/usr/bin/env perl #!/usr/bin/env perl
# GH-Informatik 2018, based on https://github.com/c-kr/check_json # GH-Informatik 2022, based on https://github.com/c-kr/check_json
use warnings; use warnings;
use strict; use strict;
use HTTP::Request::Common; use HTTP::Request::Common;
use LWP::UserAgent; use LWP::UserAgent;
use JSON; use JSON;
use Nagios::Plugin; use Monitoring::Plugin;
use Data::Dumper; use Data::Dumper;
my $np = Nagios::Plugin->new( my $np = Nagios::Plugin->new(
usage => "Usage: %s -u|--url <http://user:pass\@host:port/url> -a|--attributes <attributes> " usage => "Usage: %s -u|--url <http://user:pass\@host:port/url> -a|--attributes <attributes> "
. "[ -c|--critical <thresholds> ] [ -w|--warning <thresholds> ] " . "[ -c|--critical <thresholds> ] [ -w|--warning <thresholds> ] "
. "[ -e|--expect <value> ] " . "[ -e|--expect <value> ] "
. "[ -W|--warningstr <value> ] "
. "[ -p|--perfvars <fields> ] " . "[ -p|--perfvars <fields> ] "
. "[ -o|--outputvars <fields> ] " . "[ -o|--outputvars <fields> ] "
. "[ -H|--headers <fields> ] "
. "[ -t|--timeout <timeout> ] " . "[ -t|--timeout <timeout> ] "
. "[ -d|--divisor <divisor> ] " . "[ -d|--divisor <divisor> ] "
. "[ -m|--metadata <content> ] " . "[ -m|--metadata <content> ] "
@ -70,6 +72,11 @@ $np->add_arg(
help => '-e, --expect expected value to see for attribute.', help => '-e, --expect expected value to see for attribute.',
); );
$np->add_arg(
spec => 'warningstr|W=s',
help => '-W, --warningstr expected value to see for attribute on warning status.',
);
$np->add_arg( $np->add_arg(
spec => 'perfvars|p=s', spec => 'perfvars|p=s',
help => "-p, --perfvars eg. '* or {shares}->{dead},{shares}->{live}'\n " help => "-p, --perfvars eg. '* or {shares}->{dead},{shares}->{live}'\n "
@ -82,6 +89,12 @@ $np->add_arg(
. "CSV list of fields output in status message, same syntax as perfvars" . "CSV list of fields output in status message, same syntax as perfvars"
); );
$np->add_arg(
spec => 'headers|H=s',
help => "-H, --headers eg. '* or {status_message}'\n "
. "CSV list of custom headers to include in the json"
);
$np->add_arg( $np->add_arg(
spec => 'metadata|m=s', spec => 'metadata|m=s',
help => "-m|--metadata \'{\"name\":\"value\"}\'\n " help => "-m|--metadata \'{\"name\":\"value\"}\'\n "
@ -121,12 +134,23 @@ if ($np->opts->ignoressl) {
if ($np->opts->verbose) { (print Dumper ($ua))}; if ($np->opts->verbose) { (print Dumper ($ua))};
my $response; my $response;
if ($np->opts->metadata) { my %headers = ('x-Key' => 'x-Value');
$response = $ua->request(GET $np->opts->url, 'Content-type' => 'application/json', 'Content' => $np->opts->metadata ); $headers{'x-API-KEY'} = 'ghi-unit-testToKeN-1235432';
} else { if ($np->opts->headers) {
$response = $ua->request(GET $np->opts->url); foreach my $key ($np->opts->headers eq '*' ? map { "{$_}"} sort keys %$response : split('#', $np->opts->headers)) {
my @header = split(':', $key);
$headers{$header[0]} = $header[1];
}
} }
if ($np->opts->metadata) {
$response = $ua->request(GET $np->opts->url, 'Content-type' => 'application/json', 'Content' => $np->opts->metadata, %headers);
} else {
$response = $ua->request(GET $np->opts->url, %headers);
}
if ($response->is_success) { if ($response->is_success) {
if (!($response->header("content-type") =~ $np->opts->contenttype)) { if (!($response->header("content-type") =~ $np->opts->contenttype)) {
$np->nagios_exit(UNKNOWN,"Content type is not JSON: ".$response->header("content-type")); $np->nagios_exit(UNKNOWN,"Content type is not JSON: ".$response->header("content-type"));
@ -164,6 +188,8 @@ foreach my $attribute (sort keys %attributes){
my $cmpv1 = ".*"; my $cmpv1 = ".*";
$cmpv1 = $np->opts->expect if (defined( $np->opts->expect ) ); $cmpv1 = $np->opts->expect if (defined( $np->opts->expect ) );
my $cmpv2 = ".*";
$cmpv2 = $np->opts->warningstr if (defined( $np->opts->warningstr ) );
if ( $cmpv1 eq '.*' ) { if ( $cmpv1 eq '.*' ) {
if ($attributes{$attribute}{'divisor'}) { if ($attributes{$attribute}{'divisor'}) {
@ -175,8 +201,14 @@ foreach my $attribute (sort keys %attributes){
# if (defined $np->opts->expect && $np->opts->expect ne $check_value) { # if (defined $np->opts->expect && $np->opts->expect ne $check_value) {
if (defined($cmpv1 ) && ( ! ( $check_value =~ m/$cmpv1/ ) ) ) { if (defined($cmpv1 ) && ( ! ( $check_value =~ m/$cmpv1/ ) ) ) {
$resultTmp = 2; if (defined($cmpv2 ) && ( ! ($cmpv2 eq '.*') ) && ( $check_value =~ m/$cmpv2/ ) ) {
$np->nagios_exit(CRITICAL, "Expected value (" . $cmpv1 . ") not found. Actual: " . $check_value); $resultTmp = 1;
$np->nagios_exit(WARNING, "Expected WARNING value (" . $cmpv2 . ") found. Actual: " . $check_value);
}else{
$resultTmp = 2;
$np->nagios_exit(CRITICAL, "Expected OK and WARNING value (" . $cmpv1 . "and" . $cmpv2 . ") not found. Actual: " . $check_value);
}
} }
# GHI GH-Informatik, no numeric check if regex <> .* # GHI GH-Informatik, no numeric check if regex <> .*
if ( $cmpv1 eq '.*' ) { if ( $cmpv1 eq '.*' ) {