# HG changeset patch # User Matthias Förste # Date 1454322992 -3600 # Node ID 296eb0085df823e6e48415e2eca4d23f8ceeb854 # Parent 15f109d06ec0b964cc498e5db158d5a6193dda59 warning stillgelegt diff -r 15f109d06ec0 -r 296eb0085df8 upload.pl --- a/upload.pl Fri Nov 20 17:57:22 2015 +0100 +++ b/upload.pl Mon Feb 01 11:36:32 2016 +0100 @@ -108,7 +108,8 @@ or mkdir $DIR => 0750 or die "Can't mkdir $DIR: $!\n"; - if (param("delete") =~ /([-a-z\d]+-\d+-.)/i) { + my $delete = param("delete"); + if (defined $delete and $delete =~ /([-a-z\d]+-\d+-.)/i) { deletedir $1; print redirect(-uri => url(-path_info => 1)); exit 0;