- or download this
#!/usr/bin/perl -w
use strict;
...
my $json = $response->decoded_content;
print Dumper $json;
- or download this
./check_jboss_state.pl
HTTP::Response=HASH(0x1448eb0)$VAR1 = 'Server closed connection withou
+t sending any data back at /usr/local/nagios/perl/lib/Net/HTTP/Method
+s.pm line 345.
';
- or download this
my $jboss_url = 'http://admin:jboss@10.208.30.77:9990/management/?oper
+ation=resource&name=server-state&include-runtime=true&json.pretty';
- or download this
$jboss_url = 'http://10.208.30.77:9990/management/?operation=resource&
+name=server-state&include-runtime=true&json.pretty';
- or download this
$ua->credentials('10.208.30.77:9990','something','admin','jboss');
- or download this
$ua->credentials('10.208.30.77:9990','ManagementRealm','admin','jboss'
+);