From cb7b83d1a9cc63feabf389b9084bf50b296c2ad6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rodolphe=20Qui=C3=A9deville?= <rodolphe@quiedeville.org>
Date: Tue, 6 May 2014 17:59:45 +0200
Subject: [PATCH] Add new option outputvars to print JSON values in status
 message

---
 check_json.pl | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/check_json.pl b/check_json.pl
index 2566382..2f11aa1 100755
--- a/check_json.pl
+++ b/check_json.pl
@@ -14,12 +14,14 @@ my $np = Nagios::Plugin->new(
     . "[ -t|--timeout <timeout> ] "
     . "[ -d|--divisor <divisor> ] "
     . "[ -T|--contenttype <content-type> ] "
+    . "[ -o|--ouputvars <fields> ] "
     . "[ -h|--help ] ",
-    version => '0.2',
+    version => '0.3',
     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 --attribute '{shares}->{dead}' "
-    . "--warning :5 --critical :10 --perfvars '{shares}->{dead},{shares}->{live}'",
+    . "--warning :5 --critical :10 --perfvars '{shares}->{dead},{shares}->{live}'"
+    . "--outputvars '{status_message}'",
     url     => 'https://github.com/c-kr/check_json',
     plugin  => 'check_json',
     timeout => 15,
@@ -60,6 +62,12 @@ $np->add_arg(
     . '{shares}->{dead},{shares}->{live}',
 );
 
+$np->add_arg(
+    spec => 'outputvars|o=s',
+    help => '-o, --outputvars . CSV list of fields output in status message, same syntax as '
+    . 'perfvars',
+);
+
 $np->add_arg(
     spec => 'contenttype|T=s',
     default => 'application/json',
@@ -143,6 +151,19 @@ if ($np->opts->perfvars) {
     }
 }
 
+# output some vars in message
+if ($np->opts->outputvars) {
+    foreach my $key (split(',', $np->opts->outputvars)) {
+        # use last element of key as label
+        my $label = (split('->', $key))[-1];
+        # make label ascii compatible
+        $label =~ s/[^a-zA-Z0-9_-]//g;
+        my $perf_value;
+        $perf_value = eval '$json_response->'.$key;
+	push(@statusmsg, "$label: $perf_value");
+    }
+}
+
 $np->nagios_exit(
     return_code => $result,
     message     => join(', ', @statusmsg),