diff options
Diffstat (limited to 'log.pl')
-rwxr-xr-x | log.pl | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1,8 +1,6 @@ #!/usr/bin/perl use strict; - -require RPC::XML; -require RPC::XML::Client; +use local::nzbget; use CGI qw(:standard); use CGI::Carp 'fatalsToBrowser'; use URI::Escape; @@ -11,7 +9,7 @@ print header; print start_html('nzbget status'); print hr(); -my $cli = RPC::XML::Client->new('http://nzbget:tegbzn6789@127.0.0.1:6789/xmlrpc'); +my $cli = new local::nzbget; print CGI::start_table(); my $status = $cli->send_request('status') or die "Can't connect to nubget"; print Tr(td['download speed', 'cur', int($status->{DownloadRate}->value/(1024*1024)).'MB/s','average',int($status->{AverageDownloadRate}->value/(1024*1024)).'MB/s']); |