summaryrefslogtreecommitdiff
path: root/cancel.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cancel.pl')
-rwxr-xr-xcancel.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/cancel.pl b/cancel.pl
index 7b8546c..613612e 100755
--- a/cancel.pl
+++ b/cancel.pl
@@ -6,7 +6,8 @@ use CGI::Carp 'fatalsToBrowser';
use local::nzbget;
use local::db;
use local::user;
-use File::Path qw(remove_tree);
+use File::Path;
+use config;
my $user = new local::user(%ENV);
my $del_id = param('id');
@@ -23,7 +24,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($basedir.'/'.$dl->category->name.'/'.$dl->download_id);
+ File::Path::rmtree($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);