repo.or.cz
/
sgn.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Make the old glossarysearch.pl redirect to the new controller
[sgn.git]
/
cgi-bin
/
search
/
glossarysearch.pl
blob
96c19f39134d91b4fbc70595ff97ac38faaaee94
1
use
Modern
::
Perl
;
2
use
CatalystX
::
GlobalContext
qw(
$c
);
3
use CGI qw()
;
4
5
my
$term
=
$c
->
request
->
param
(
'getTerm'
);
6
7
print
CGI
->
new
->
redirect
(
8
-
status
=>
301
,
9
-
uri
=>
"/search/glossary/
$term
"
);