From 23d5b7802426cfd7b4503e7da88aaebd7369b964 Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Sat, 15 Jan 2011 20:20:26 +0000 Subject: chacnged user to use complete environment added config support to remove and cancel --- remove.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'remove.pl') diff --git a/remove.pl b/remove.pl index 1b369bb..122543b 100755 --- a/remove.pl +++ b/remove.pl @@ -8,7 +8,7 @@ use local::user; use File::Path qw(remove_tree); use $config; -my $user = new local::user($ENV{REMOTE_USER}); +my $user = new local::user(%ENV); my $del_id = param('id'); my ($dl) = local::db::download->retrieve($del_id) or die 'Error in cancel'; -- cgit v1.2.3