diff options
Diffstat (limited to 'log.pl')
-rwxr-xr-x | log.pl | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -8,14 +8,8 @@ use URI::Escape; print header; print start_html('nzbget status'); -print hr(); 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']); -print CGI::end_table(); -print hr(); -print CGI::start_table(); my $resp = $cli->send_request('log',0,10) or die "Can't connect to nubget"; foreach my $row (@{ $resp->value}) { |