diff options
Diffstat (limited to 'cancel.pl')
-rwxr-xr-x | cancel.pl | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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); |