1 files changed, 18 insertions, 0 deletions
diff --git a/remove.pl b/remove.pl
new file mode 100755
index 0000000..5c76462
--- /dev/null
+++ b/remove.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI qw(:standard);
+use CGI::Carp 'fatalsToBrowser';
+use local::db;
+use local::user;
+use File::Path qw(remove_tree);
+
+my $user = new local::user($ENV{REMOTE_USER});
+my $del_id = param('id');
+
+my ($dl) = local::db::download->retrieve($del_id) or die 'Error in cancel';
+die "Not allowed" if not $dl->owner->owner_id() eq $user->get_id();
+remove_tree('/srv/nzbget/done/'.$dl->category->name.'/'.$dl->download_id);
+$dl->delete();
+
+print CGI::redirect('/cgi-bin/nzbget/mydl.pl?only_me=1');