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:
parent
11bd14d153
commit
1f8f2e7bd8
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=18055
1 changed files with 3 additions and 2 deletions
|
|
@ -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/&/&/g; s/</</g; s/>/>/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:/) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue