#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use utf8;
use local::nzbget;
use local::db;
use local::user;
my $user = new local::user($ENV{REMOTE_USER});


print header;
use local::menu;
my $menu=new local::menu(%ENV);
print $menu->start_html('my downloads');
print table({class=>'nohigh'},Tr(td({align=>'right'},['benutzter Speicherplatz   '. $user->obj->quota_used().' / '.$user->obj->quoata().' MB']))) if (param('only_me'));

print CGI::start_table();
print Tr(th([qw/Neu Kategorie Name Größe Löschen /]));
my @downloads;
if (param('only_me'))
{
	@downloads = local::db::download->search(owner=>$user->get_id(),completed=>1,{ order_by => 'time DESC'});
} else {
	@downloads = local::db::download->search(completed=>1,{ order_by => 'time DESC'});
}
foreach my $dl ( @downloads)
{
  my $dl_remove;
  $dl_remove = a({href=>'/cgi-bin/nzbget/remove.pl?id='.$dl->download_id},"löschen") if $dl->owner->owner_id == $user->get_id;
	print Tr(td([ (local::db::seen->search(user=>$user->get_id(),download=>$dl->download_id))?'':'x',
	  $dl->category->name,a({title=>$dl->description,href=>'/cgi-bin/nzbget/read.pl?id='.$dl->download_id},$dl->name),$dl->size.'MB',$dl_remove
			
	]));
}
;
print CGI::end_table();

print $menu->end_html();