#!/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 <<LALALA
<script type="text/javascript" language="JavaScript"><!--
  window.setTimeout('document.location.reload()', 10000);
  //--></script> 
LALALA
;
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;