From: Jan Michel Date: Fri, 10 May 2013 17:42:22 +0000 (+0200) Subject: changed filename check X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=9f77c31be0bc360d77cb2d2f45f2bb26cc14b51a;p=trb3web.git changed filename check --- diff --git a/index.pl b/index.pl index c5b1adc..91e4742 100755 --- a/index.pl +++ b/index.pl @@ -6,7 +6,7 @@ use frame; print "Content-type: text/html\n\n"; my $file = $ENV{'QUERY_STRING'}; -$file = "main" unless (defined $file && $file =~ /\w/ && -e "$file.htm"); +$file = "main" unless (defined $file && $file =~ /^\w$/ && -e "$file.htm");