pass raw output from the service instead of trying to
--raw decode it as json This is a boolean field and does not
require an argument.
-l
es;
use HTML::Form;
use LWP::UserAgent::Determined;
use Carp qw(longmess shortmess);
use CGI;
use JSON::XS;
use Data::Dumper;
use GRNOC::Config;
use Time::HiRes qw(gettimeofday tv_interval);
use File:
) {
return $res;
}
#--- default is to return json hash
# <editorialize>
# @#$*(@#$%($% library functions should alw
) is neigh.
# JSON:XS doesn't do this. Hence the eval.
# </editorialize>
my $str;
eval { $str = decode_json( $res ) };
i