os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
data/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/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"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -35,6 +35,8 @@ if ($opt_p) {
} }
$pr = $input{'pr'}; $pr = $input{'pr'};
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
if ($pr < 1 || $pr > 99999) { if ($pr < 1 || $pr > 99999) {
print &html_header("FreeBSD Problem Report"); print &html_header("FreeBSD Problem Report");

4
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/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"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -35,6 +35,8 @@ if ($opt_p) {
} }
$pr = $input{'pr'}; $pr = $input{'pr'};
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;
if ($pr < 1 || $pr > 99999) { if ($pr < 1 || $pr > 99999) {
print &html_header("FreeBSD Problem Report"); print &html_header("FreeBSD Problem Report");