Be tolerant to <category>/<PR id> queries.

This commit is contained in:
Wolfram Schneider 1998-04-21 14:55:39 +00:00
parent bcf4a0c3b5
commit a409399b33
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2722
2 changed files with 6 additions and 2 deletions

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.6 1998-02-19 20:14:53 fenner Exp $
# $Id: query-pr.cgi,v 1.7 1998-04-21 14:55:39 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -35,6 +35,8 @@ if ($opt_p) {
}
$pr = $input{'pr'};
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
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.6 1998-02-19 20:14:53 fenner Exp $
# $Id: query-pr.cgi,v 1.7 1998-04-21 14:55:39 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -35,6 +35,8 @@ if ($opt_p) {
}
$pr = $input{'pr'};
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
if ($pr < 1 || $pr > 99999) {
print &html_header("FreeBSD Problem Report");