summaryrefslogtreecommitdiff
path: root/mydl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'mydl.pl')
-rwxr-xr-xmydl.pl37
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();
-