summaryrefslogtreecommitdiff
path: root/cancel.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cancel.pl')
-rwxr-xr-xcancel.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/cancel.pl b/cancel.pl
index 6aee2bd..75df86a 100755
--- a/cancel.pl
+++ b/cancel.pl
@@ -13,7 +13,7 @@ my $del_id = param('id');
my ($download) = local::db::download->retrieve($del_id) or die 'Error in cancel';
die "Not allowed" if not $download->owner->owner_id() eq $user->get_id();
-
+my $basedir = $config::config{files_dir} or die 'Missing files_dir in config';
my $cli = new local::nzbget;
my $row = $cli->send_request('listgroups') or die "Can't connect to nubget";
foreach my $value ( @$row)
@@ -23,7 +23,7 @@ foreach my $value ( @$row)
{
my $status = $cli->send_request('editqueue','GroupDelete',0,"",[$value->{LastID}->value]) or die "Can't connect to nzbget";
sleep 1;
- remove_tree('/srv/nzbget/done/'.$dl->category->name.'/'.$dl->download_id);
+ 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);