accept digits an multiple dashes in mailing list name

This commit is contained in:
Wolfram Schneider 2000-11-01 09:52:06 +00:00
parent a4b5a05ad8
commit ead0572613
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8269

View file

@ -6,7 +6,7 @@
# by John Fieber
# February 26, 1998
#
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.24 2000/01/05 15:47:44 phantom Exp $
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.25 2000/10/29 16:29:45 jmb Exp $
#
require "./cgi-lib.pl";
@ -63,7 +63,7 @@ sub Fetch
}
if (($file =~ /^$messagepath/ && open(DATA, $file)) ||
($file =~ m%^current/(cvs|freebsd)-[a-z]+$% &&
($file =~ m%^current/(cvs|freebsd)-[a-z0-9-]+$% &&
open(DATA, "$messagepathcurrent$file")))
{
@finfo = stat DATA;