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

Added Accept application/json

Browse Source 
Some APIs output only cleartext if a correct accept-header is missing.
This commit is contained in:
mail@denisu.jp 2013-06-26 20:06:21 +09:00
parent 75942dc27e
commit 23a7580f2e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
check_json.pl
View File

@ -7,7 +7,7 @@ use JSON 'decode_json';
use Nagios::Plugin;
use Data::Dumper;
my $np = Nagios::Plugin->new(
my $np = Nagios::Plugin->new(
usage => "Usage: %s [ -v|--verbose ] [-U <URL>] [-t <timeout>] "
. "[ -c|--critical <threshold> ] [ -w|--warning <threshold> ] "
. "[ -a | --attribute ] <attribute>",
@ -56,6 +56,7 @@ $np->getopts;
my $ua = LWP::UserAgent->new;
$ua->agent('check_json/0.1');
$ua->default_header('Accept' => 'application/json');
$ua->protocols_allowed( [ 'http', 'https'] );
$ua->parse_head(0);
$ua->timeout($np->opts->timeout);
@ -88,7 +89,7 @@ if (defined $np->opts->divisor) {
my $result = $np->check_threshold($value);
$np->add_perfdata(
$np->add_perfdata(
label => 'value',
value => $value,
threshold => $np->threshold(),