diff options
author | Yorhel <git@yorhel.nl> | 2010-12-09 16:56:09 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2010-12-09 16:56:09 +0100 |
commit | eacb0299a5b6124e36a7eed8a51e8b8c18b20ddf (patch) | |
tree | 0abd2b9e9bd7bcbe9ad9adfa16cdaa237d505663 | |
parent | 4f91b0b1229e3037f2937acf3e4ec994f33de4f4 (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.
-rw-r--r-- | lib/VNDB/Handler/Misc.pm | 2 |
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)}, |