1
0
mirror of https://github.com/c-kr/check_json.git synced 2024-11-23 19:03:49 +01:00

Merge pull request #10 from locutus304/master

Update check_json.pl
This commit is contained in:
Christopher Kreft 2014-12-11 17:49:13 +01:00
commit 8290ad203b

View File

@ -2,6 +2,7 @@
use warnings; use warnings;
use strict; use strict;
use HTTP::Request::Common;
use LWP::UserAgent; use LWP::UserAgent;
use JSON; use JSON;
use Nagios::Plugin; use Nagios::Plugin;
@ -14,6 +15,7 @@ my $np = Nagios::Plugin->new(
. "[ -o|--outputvars <fields> ] " . "[ -o|--outputvars <fields> ] "
. "[ -t|--timeout <timeout> ] " . "[ -t|--timeout <timeout> ] "
. "[ -d|--divisor <divisor> ] " . "[ -d|--divisor <divisor> ] "
. "[ -m|--metadata <content> ] "
. "[ -T|--contenttype <content-type> ] " . "[ -T|--contenttype <content-type> ] "
. "[ --ignoressl ] " . "[ --ignoressl ] "
. "[ -h|--help ] ", . "[ -h|--help ] ",
@ -73,6 +75,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 => 'metadata|m=s',
help => "-m|--metadata \'{\"name\":\"value\"}\'\n "
. "RESTful request metadata in JSON format"
);
$np->add_arg( $np->add_arg(
spec => 'contenttype|T=s', spec => 'contenttype|T=s',
default => 'application/json', default => 'application/json',
@ -104,7 +112,12 @@ if ($np->opts->ignoressl) {
if ($np->opts->verbose) { (print Dumper ($ua))}; if ($np->opts->verbose) { (print Dumper ($ua))};
my $response = ($ua->get($np->opts->url)); my $response;
if ($np->opts->metadata) {
$response = $ua->request(GET $np->opts->url, 'Content-type' => 'application/json', 'Content' => $np->opts->metadata );
} else {
$response = $ua->request(GET $np->opts->url);
}
if ($response->is_success) { if ($response->is_success) {
if (!($response->header("content-type") =~ $np->opts->contenttype)) { if (!($response->header("content-type") =~ $np->opts->contenttype)) {