From e73d74a8e23dba9b56015cdc231a3719e4ab59d5 Mon Sep 17 00:00:00 2001 From: Adam Godbeer Date: Fri, 23 Nov 2018 17:32:41 +0000 Subject: [PATCH] Allow multi-level perf/output nodes --- check_json.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/check_json.pl b/check_json.pl index fb253c9..63d6a9e 100755 --- a/check_json.pl +++ b/check_json.pl @@ -218,7 +218,9 @@ # make label ascii compatible $label =~ s/[^a-zA-Z0-9_-]//g ; my $perf_value; - $perf_value = $json_response->{$key}; + my $perf_value_str = '$perf_value = $json_response->'.$key; + if ($np->opts->verbose) { (print Dumper ($perf_value_str))}; + eval $perf_value_str; if ($np->opts->verbose) { print Dumper ("JSON key: ".$label.", JSON val: " . $perf_value) }; if ( defined($perf_value) ) { # add threshold if attribute option matches key @@ -248,7 +250,9 @@ # make label ascii compatible $label =~ s/[^a-zA-Z0-9_-]//g; my $output_value; - $output_value = $json_response->{$key}; + my $output_value_str = '$output_value = $json_response->'.$key; + if ($np->opts->verbose) { (print Dumper ($output_value_str))}; + eval $output_value_str; push(@statusmsg, "$label: $output_value"); } }