diff options
Diffstat (limited to 'mydl.pl')
-rwxr-xr-x | mydl.pl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/mydl.pl b/mydl.pl deleted file mode 100755 index c90a40c..0000000 --- a/mydl.pl +++ /dev/null @@ -1,37 +0,0 @@ -#!/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); - - -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 = local::db::download->search( - param('only_me') ? (owner=>$user->get_id()) : () , - param('category') ? (category => param('category')) : (), - 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', - a({href=>'mydl.pl?only_me='.param('only_me').'&category='.$dl->category->category_id},$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(); - |