summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2010-12-09 16:56:09 +0100
committerYorhel <git@yorhel.nl>2010-12-09 16:56:09 +0100
commiteacb0299a5b6124e36a7eed8a51e8b8c18b20ddf (patch)
tree0abd2b9e9bd7bcbe9ad9adfa16cdaa237d505663 /lib
parent4f91b0b1229e3037f2937acf3e4ec994f33de4f4 (diff)
Handler::Misc: Fixed perl warning and redirect bug for old /v/search URLs
We can't redirect to unencoded and unescaped URLs containing unicode characters.
Diffstat (limited to 'lib')
-rw-r--r--lib/VNDB/Handler/Misc.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index b26868d5..187bd0ab 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -21,7 +21,7 @@ YAWF::register(
# redirects for old URLs
qr{(.*[^/]+)/+}, sub { $_[0]->resRedirect("/$_[1]", 'perm') },
qr{([pv])}, sub { $_[0]->resRedirect("/$_[1]/all", 'perm') },
- qr{v/search}, sub { $_[0]->resRedirect("/v/all?q=".$_[0]->reqParam('q'), 'perm') },
+ qr{v/search}, sub { $_[0]->resRedirect("/v/all?q=".uri_escape($_[0]->reqParam('q')), 'perm') },
qr{notes}, sub { $_[0]->resRedirect('/d8', 'perm') },
qr{faq}, sub { $_[0]->resRedirect('/d6', 'perm') },
qr{v([1-9]\d*)/(?:stats|scr|votes)},