From de631783860d528233bb93e395a25d228814170f Mon Sep 17 00:00:00 2001
From: Russ Rowan <neuromancer@HAL-9000.(none)>
Date: Wed, 28 Sep 2005 16:02:01 -0400
Subject: [PATCH] Convert some characters to entities to allow them in a search
 string.

---
 contrib/perl/hooks.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/contrib/perl/hooks.pl b/contrib/perl/hooks.pl
index 763795df3..f7c96d630 100644
--- a/contrib/perl/hooks.pl
+++ b/contrib/perl/hooks.pl
@@ -336,7 +336,15 @@ second parameter.  It returns the mapped target URL.
 			}
 			$url =~ s/!bork!/$bork/;
 		}
-		$url .= $search if $search;
+		if ($search)
+		{
+			$search =~ s/%/%25/g;
+			$search =~ s/&/%26/g;
+			$search =~ s/\s/%20/g;
+			$search =~ s/\+/%2b/g;
+			$search =~ s/#/%23/g;
+			$url .= $search;
+		}
 		return $url;
 	}