diff options
Diffstat (limited to 'status.pl')
-rwxr-xr-x | status.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/status.pl b/status.pl new file mode 100755 index 0000000..3877f4b --- /dev/null +++ b/status.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +use strict; +use CGI qw(:standard); +use CGI::Carp 'fatalsToBrowser'; +print header; +print start_html('nzbget status'); + +require RPC::XML; +require RPC::XML::Client; + +my $cli = RPC::XML::Client->new('http://nzbget:tegbzn6789@127.0.0.1:6789/xmlrpc'); +my $row = $cli->send_request('status') or die "Can't connect to nubget"; + +print CGI::start_table(); +foreach my $key (keys %$row) +{ + print Tr(td([$key,$row->{$key}->value])); +} +; +print CGI::end_table(); + +print end_html; + |