Catch i386/* PR's too.

Pointed out by: Carl Mascott <cmascott@world.std.com>
This commit is contained in:
Wolfram Schneider 1998-07-01 10:30:47 +00:00
parent 2cd50884ea
commit e57600a034
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=3017
2 changed files with 4 additions and 4 deletions

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.14 1998-06-24 05:48:30 fenner Exp $
# $Id: query-pr.cgi,v 1.15 1998-07-01 10:30:47 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -40,7 +40,7 @@ if (!($pr = $input{'pr'}) && &MethGet) {
}
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
$pr =~ s%^[a-z][a-z386]+/([0-9]+)$%$1%i;
if ($pr < 1 || $pr > 99999) {
print &html_header("FreeBSD Problem Report");

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.14 1998-06-24 05:48:30 fenner Exp $
# $Id: query-pr.cgi,v 1.15 1998-07-01 10:30:47 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -40,7 +40,7 @@ if (!($pr = $input{'pr'}) && &MethGet) {
}
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
$pr =~ s%^[a-z][a-z386]+/([0-9]+)$%$1%i;
if ($pr < 1 || $pr > 99999) {
print &html_header("FreeBSD Problem Report");