From d01457cf1d32739dbaa2b8a576dbbc4fb3c20fa2 Mon Sep 17 00:00:00 2001
From: Yaroslav Tykhiy <ytykhiy@gmail.com>
Date: Thu, 26 Oct 2006 11:13:34 +0000
Subject: [PATCH] Decode query components.  Without this, one couldn't specify
 full PR ID, e.g., bin/12345, in the "PR number" field of the web form because
 the slash was encoded as %2F by many browsers.  Of course, decoding the query
 is a must for a cgi in general.

---
 en/cgi/query-pr.cgi | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/en/cgi/query-pr.cgi b/en/cgi/query-pr.cgi
index f572e0cadf..7913d1da94 100755
--- a/en/cgi/query-pr.cgi
+++ b/en/cgi/query-pr.cgi
@@ -26,7 +26,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.55 2006/09/23 14:02:27 simon Exp $
+# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.56 2006/10/11 21:02:58 danger Exp $
 #
 
 use strict;
@@ -224,7 +224,8 @@ $main::t_style = "<link href=\"${stylesheet}\" rel=\"stylesheet\" type=\"text/cs
 
 if ($ENV{'QUERY_STRING'}) {
 	foreach (split(/&/, $ENV{'QUERY_STRING'})) {
-		my ($key, $val) = split /=/;
+		my ($key, $val) = map { s/%([0-9a-f]{2})/chr hex $1/egi; $_ }
+				  split /=/;
 		$f        = $val if ($key eq "f");
 		$PR       = $val if ($key eq "pr" or $key eq "q");
 		$PR       = $key if ($key =~ /^(?:$valid_category\/)?$valid_pr$/);