diff options
Diffstat (limited to 'status.pl')
-rwxr-xr-x | status.pl | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/status.pl b/status.pl deleted file mode 100755 index 3877f4b..0000000 --- a/status.pl +++ /dev/null @@ -1,23 +0,0 @@ -#!/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; - |