Add 'svn-*' to the whitelist of email list prefixes
This commit is contained in:
parent
3079451f59
commit
9ae2980c1d
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=33020
1 changed files with 3 additions and 3 deletions
|
@ -6,7 +6,7 @@
|
|||
# by John Fieber
|
||||
# February 26, 1998
|
||||
#
|
||||
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.42 2007/02/19 19:20:35 wosch Exp $
|
||||
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.43 2007/07/16 18:12:04 wosch Exp $
|
||||
#
|
||||
|
||||
require "./cgi-lib.pl";
|
||||
|
@ -61,7 +61,7 @@ sub Fetch
|
|||
}
|
||||
|
||||
# from the local mail archive for current mails
|
||||
elsif ($file =~ m%^current/(cvs|freebsd|p4|trustedbsd)-[a-z0-9-]+$% &&
|
||||
elsif ($file =~ m%^current/(cvs|svn|freebsd|p4|trustedbsd)-[a-z0-9-]+$% &&
|
||||
open(DATA, "$messagepathcurrent$file")) {
|
||||
print "Content-type: text/plain\n\n";
|
||||
while(<DATA>) {
|
||||
|
@ -73,7 +73,7 @@ sub Fetch
|
|||
}
|
||||
|
||||
if (($file =~ /^$messagepath/ && -f $file && open(DATA, $file)) ||
|
||||
($file =~ m%^current/(cvs|freebsd|p4|trustedbsd)-[a-z0-9-]+$% &&
|
||||
($file =~ m%^current/(cvs|svn|freebsd|p4|trustedbsd)-[a-z0-9-]+$% &&
|
||||
open(DATA, "$messagepathcurrent$file")))
|
||||
{
|
||||
@finfo = stat DATA;
|
||||
|
|
Loading…
Reference in a new issue