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

Allow /cgi/query-pr.cgi?<pr> queries.

Browse source
This commit is contained in:
Wolfram Schneider 1998-06-02 13:07:10 +00:00
parent 7994ce119a
commit cafc8fac8f
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2883
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.7 1998-04-21 14:55:39 wosch Exp $
# $Id: query-pr.cgi,v 1.8 1998-06-02 13:07:10 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -34,7 +34,11 @@ if ($opt_p) {
}
}
$pr = $input{'pr'};
# allow query-pr.cgi?<pr> queries
if (!($pr = $input{'pr'}) && &MethGet) {
$pr = $ENV{'QUERY_STRING'};
}
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;

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

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.7 1998-04-21 14:55:39 wosch Exp $
# $Id: query-pr.cgi,v 1.8 1998-06-02 13:07:10 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -34,7 +34,11 @@ if ($opt_p) {
}
}
$pr = $input{'pr'};
# allow query-pr.cgi?<pr> queries
if (!($pr = $input{'pr'}) && &MethGet) {
$pr = $ENV{'QUERY_STRING'};
}
# be tolerant to <category>/<PR id> queries
$pr =~ s%^[a-z]+/([0-9]+)$%$1%;