blob: 5c46937a6303699c7459574c6b42d94f7834693e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use local::nzbget;
use local::db;
use local::user;
my $user = new local::user($ENV{REMOTE_USER});
print header;
print start_html('my downloads');
print CGI::start_table();
my @downloads;
if (param('only_me'))
{
@downloads = local::db::download->search(owner=>$user->get_id(),{ order_by => 'time DESC'});
} else {
@downloads = reverse local::db::download->retrieve_all();
}
foreach my $dl ( @downloads)
{
print Tr(td([
$dl->category->name,a({title=>$dl->description,href=>'/'.$dl->category->name.'/'.$dl->download_id},$dl->name),$dl->size.'MB'
]));
}
;
print CGI::end_table();
print end_html;
|