diff options
| -rwxr-xr-x | cancel.pl | 5 | ||||
| -rwxr-xr-x | remove.pl | 6 |
2 files changed, 6 insertions, 5 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); @@ -5,8 +5,8 @@ use CGI qw(:standard); use CGI::Carp 'fatalsToBrowser'; use local::db; use local::user; -use File::Path qw(remove_tree); -use $config; +use File::Path; +use config; my $user = new local::user(%ENV); my $del_id = param('id'); @@ -15,7 +15,7 @@ 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(); my $basedir = $config::config{files_dir} or die 'Missing files_dir in config'; -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); |