Add p4 archives to the allowed-list

This commit is contained in:
Peter Wemm 2002-03-19 00:53:52 +00:00
parent df5153d5dd
commit 2c9aa1786f
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=12531

View file

@ -6,7 +6,7 @@
# by John Fieber # by John Fieber
# February 26, 1998 # February 26, 1998
# #
# $FreeBSD$ # $FreeBSD: www/en/cgi/getmsg.cgi,v 1.33 2001/11/07 16:32:11 sobomax Exp $
# #
require "./cgi-lib.pl"; require "./cgi-lib.pl";
@ -51,7 +51,7 @@ sub Fetch
} }
# from the local mail archive for current mails # from the local mail archive for current mails
elsif ($file =~ m%^current/(cvs|freebsd)-[a-z0-9-]+$% && elsif ($file =~ m%^current/(cvs|freebsd|p4)-[a-z0-9-]+$% &&
open(DATA, "$messagepathcurrent$file")) { open(DATA, "$messagepathcurrent$file")) {
print "Content-type: text/plain\n\n"; print "Content-type: text/plain\n\n";
while(<DATA>) { while(<DATA>) {
@ -63,7 +63,7 @@ sub Fetch
} }
if (($file =~ /^$messagepath/ && -f $file && open(DATA, $file)) || if (($file =~ /^$messagepath/ && -f $file && open(DATA, $file)) ||
($file =~ m%^current/(cvs|freebsd)-[a-z0-9-]+$% && ($file =~ m%^current/(cvs|freebsd|p4)-[a-z0-9-]+$% &&
open(DATA, "$messagepathcurrent$file"))) open(DATA, "$messagepathcurrent$file")))
{ {
@finfo = stat DATA; @finfo = stat DATA;