From a59fc0a279cb5f7af8d6b66fc2c5118c944f6dd3 Mon Sep 17 00:00:00 2001
From: bchabot <bchabot@gmail.com>
Date: Wed, 30 Aug 2017 15:30:18 -0400
Subject: [PATCH] Added ability to add an additional header via -A and -C

I needed to pass an auth token to the server, so I added a parameter for attribute and content of an additional header such as:

 -A "authorization" -C "Basic AUTHKEYREDACTED"

...to represent the header:
"authorization: Basic AUTHKEYREDACTED"
---
 check_json.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/check_json.pl b/check_json.pl
index fb253c9..55e96ef 100755
--- a/check_json.pl
+++ b/check_json.pl
@@ -19,8 +19,10 @@ my $np = Nagios::Plugin->new(
     . "[ -m|--metadata <content> ] "
     . "[ -T|--contenttype <content-type> ] "
     . "[ --ignoressl ] "
+    . "[ -A|--hattrib <value> ] "
+    . "[ -C|--hcon <value> ] "
     . "[ -h|--help ] ",
-    version => '0.5',
+    version => '0.51',
     blurb   => 'Nagios plugin to check JSON attributes via http(s)',
     extra   => "\nExample: \n"
     . "check_json.pl --url http://192.168.5.10:9332/local_stats --attributes '{shares}->{dead}' "
@@ -99,6 +101,17 @@ $np->add_arg(
     help => "--ignoressl\n   Ignore bad ssl certificates",
 );
 
+$np->add_arg(
+    spec => 'hattrib|A=s',
+    help => "-A, --header-attrib STRING \n "
+    . "Additional Header attribute.",
+);
+$np->add_arg(
+    spec => 'hcon|C=s',
+    help => "-C, --header-content STRING \n "
+    . "Additional Header content.",
+);
+
 ## Parse @ARGV and process standard arguments (e.g. usage, help, version)
 $np->getopts;
 if ($np->opts->verbose) { (print Dumper ($np))};
@@ -109,6 +122,7 @@ my $ua = LWP::UserAgent->new;
 $ua->env_proxy;
 $ua->agent('check_json/0.5');
 $ua->default_header('Accept' => 'application/json');
+$ua->default_header($np->opts->hattrib => $np->opts->hcon);
 $ua->protocols_allowed( [ 'http', 'https'] );
 $ua->parse_head(0);
 $ua->timeout($np->opts->timeout);