From 2c9aa1786f3acfff6b3cbb79027f25183e5eda7f Mon Sep 17 00:00:00 2001
From: Peter Wemm <peter@FreeBSD.org>
Date: Tue, 19 Mar 2002 00:53:52 +0000
Subject: [PATCH] Add p4 archives to the allowed-list

---
 en/cgi/getmsg.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/en/cgi/getmsg.cgi b/en/cgi/getmsg.cgi
index 2fc34e5357..11b4fcb332 100755
--- a/en/cgi/getmsg.cgi
+++ b/en/cgi/getmsg.cgi
@@ -6,7 +6,7 @@
 # by John Fieber
 # 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";
@@ -51,7 +51,7 @@ sub Fetch
 	}
 	
 	# 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")) {
 	    print "Content-type: text/plain\n\n"; 
 	    while(<DATA>) {
@@ -63,7 +63,7 @@ sub Fetch
     }
 
     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")))
     {
 	@finfo = stat DATA;