From 47e6c70ef295d7480be741e8c80124e372b95418 Mon Sep 17 00:00:00 2001
From: Othmar Gsenger <otti@wirdorange.org>
Date: Sat, 15 Jan 2011 01:45:31 +0000
Subject: added remove

---
 remove.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 remove.pl

(limited to 'remove.pl')

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');
-- 
cgit v1.2.3