From 9f77c31be0bc360d77cb2d2f45f2bb26cc14b51a Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 10 May 2013 19:42:22 +0200
Subject: [PATCH] changed filename check

---
 index.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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");
 
 
 
-- 
2.43.0