Old archive files contains a dot.

This commit is contained in:
Wolfram Schneider 2006-12-01 21:58:22 +00:00
parent 1cc56b6d53
commit 382d335ee1
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=29160

View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $FreeBSD: www/en/cgi/mailindex.cgi,v 1.8 2006/03/24 06:24:41 kuriyama Exp $
# $FreeBSD: www/en/cgi/mailindex.cgi,v 1.9 2006/11/30 20:36:31 wosch Exp $
use CGI;
@ -67,7 +67,7 @@ if (!$file) {
# forbid link to parent directories
$file =~ s%\.\./%%g;
if ($file =~ m,^([0-9a-z/-]+)$,) {
if ($file =~ m,^([0-9a-z/-]+|[0-9a-z/-]+\.[0-9a-z-]+)$,) {
$file = $1;
} else {
print "Unknown file name given\n";