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