From cf341a1699ee5fe38afd4250c6806c130e46770d Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 10 May 2013 19:43:20 +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 91e4742..b4b5290 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