Don't show the Resp. field if it's ports-bugs, just like we do with

freebsd-bugs already.

Add a micro-optimization to this test, which should just about make
up for checking two strings instead of one for most pr's.

Reviewed by:	ceri
This commit is contained in:
Doug Barton 2003-09-02 09:46:27 +00:00
parent 11bd14d153
commit 1f8f2e7bd8
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=18055

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.38 2003/01/16 02:02:40 keramida Exp $
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.39 2003/03/06 23:51:58 wosch Exp $
sub escape($) { $_ = $_[0]; s/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g; $_; }
@ -12,6 +12,7 @@ $ENV{'PATH'} = '/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin';
$project = "FreeBSD";
$mail_prefix = "freebsd-";
$mail_unass = "freebsd-bugs";
$ports_unass = "ports-bugs";
$closed_too = 0;
require "./cgi-lib.pl";
@ -432,7 +433,7 @@ sub read_gnats {
$resp = &getline($_);
$resp =~ s/@.*//;
$resp =~ tr/A-Z/a-z/;
$resp = "" if ($resp =~ /$mail_unass/);
$resp = "" if (($resp =~ /$mail_unass/o) or ($resp =~ /$ports_unass/o));
$resp =~ s/^$mail_prefix//;
} elsif (/>State:/) {