diff options
Diffstat (limited to 'remove.pl')
-rwxr-xr-x | remove.pl | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -6,13 +6,16 @@ use CGI::Carp 'fatalsToBrowser'; use local::db; use local::user; use File::Path qw(remove_tree); +use $config; 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); + +my $basedir = $config::config{files_dir} or die 'Missing files_dir in config'; +remove_tree($basedir.'/'.$dl->category->name.'/'.$dl->download_id); $user->obj->quota_used($user->obj->quota_used - $dl->size); $user->obj->update; my @seens = local::db::seen->search(download=>$del_id); |