summaryrefslogtreecommitdiff
path: root/remove.pl
diff options
context:
space:
mode:
Diffstat (limited to 'remove.pl')
-rwxr-xr-xremove.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/remove.pl b/remove.pl
index 122543b..fe690ed 100755
--- a/remove.pl
+++ b/remove.pl
@@ -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);