blob: 5c7646240950a515d3bbfe4b6eb0be7a52f5e971 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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');
|
