Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...

my $json = $response->decoded_content;
print Dumper $json;

Select 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.
';

Select 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';

Select or download this

$jboss_url = 'http://10.208.30.77:9990/management/?operation=resource&
+name=server-state&include-runtime=true&json.pretty';

Select or download this

$ua->credentials('10.208.30.77:9990','something','admin','jboss');

Select or download this

$ua->credentials('10.208.30.77:9990','ManagementRealm','admin','jboss'
+);