diff options
Diffstat (limited to 'groups.pl')
| -rwxr-xr-x | groups.pl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/groups.pl b/groups.pl new file mode 100755 index 0000000..4636c80 --- /dev/null +++ b/groups.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl +use strict; +use CGI qw(:standard); +use CGI::Carp 'fatalsToBrowser'; +use local::nzbget; +use local::db; +print header; +print start_html('nzbget groups'); + +my $cli = new local::nzbget; +print hr(); +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 Tr(td['download speed', int($status->{DownloadRate}->value/(1024*1024)).'MB/s']); +print CGI::end_table(); +print hr(); + +my $row = $cli->send_request('listgroups') or die "Can't connect to nubget"; +print CGI::start_table(); +foreach my $value ( @$row) +{ + my ($download) = local::db::download->retrieve($value->{NZBNicename}->value) or die ' Error in groups'; + my $remaining=$value->{RemainingSizeMB}->value; + my $total=$value->{FileSizeMB}->value; + my $percent = int(100-100*$remaining/$total); + $download->size($total); + $download->update(); + print Tr(td([$download->category->name,$download->name,$download->owner->name,$percent.'%'])); + #foreach my $key (keys %$value) + #{ + # print Tr(td([$key,$value->{$key}->value])); + #} +} +; +print CGI::end_table(); + +print end_html; + |