diff options
author | Yorhel <git@yorhel.nl> | 2021-01-29 10:48:57 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-01-29 10:48:59 +0100 |
commit | 1e12a4b6aa09e58e1a0d802b165cecf381abd8b6 (patch) | |
tree | 648ecec01f686bd6a83b48fc1457307335b38d23 /lib/VNWeb | |
parent | 6e7e9ea7ef755e0017f363409b11353aee86b471 (diff) |
AdvSearch: Convert old-url redirects into permanent redirects
I had them as temporary redirects in order to safely handle a rollback,
but that won't be necessary anymore.
Diffstat (limited to 'lib/VNWeb')
-rw-r--r-- | lib/VNWeb/Chars/List.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Misc/Redirects.pm | 4 | ||||
-rw-r--r-- | lib/VNWeb/Releases/List.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Staff/List.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/TT/TagPage.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/TT/TraitPage.pm | 2 | ||||
-rw-r--r-- | lib/VNWeb/VN/List.pm | 2 |
7 files changed, 8 insertions, 8 deletions
diff --git a/lib/VNWeb/Chars/List.pm b/lib/VNWeb/Chars/List.pm index 2f944156..8424d3ec 100644 --- a/lib/VNWeb/Chars/List.pm +++ b/lib/VNWeb/Chars/List.pm @@ -61,7 +61,7 @@ TUWF::get qr{/c(?:/(?<char>all|[a-z0]))?}, sub { my $f = filter_char_adv filter_parse c => $opt->{fil}; tuwf->compile({ advsearch => 'c' })->validate(@$f > 1 ? $f : undef)->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 'c' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); diff --git a/lib/VNWeb/Misc/Redirects.pm b/lib/VNWeb/Misc/Redirects.pm index fd729727..636a766c 100644 --- a/lib/VNWeb/Misc/Redirects.pm +++ b/lib/VNWeb/Misc/Redirects.pm @@ -14,8 +14,8 @@ TUWF::get qr{/faq}, sub { tuwf->resRedirect('/d6', 'perm') }; TUWF::get qr{/p}, sub { tuwf->resRedirect('/p/all'.tuwf->reqQuery(), 'perm') }; TUWF::get qr{/v/search}, sub { tuwf->resRedirect('/v'.tuwf->reqQuery(), 'perm') }; -TUWF::get qr{/experimental/v}, sub { tuwf->resRedirect('/v'.tuwf->reqQuery(), 'temp') }; -TUWF::get qr{/experimental/r}, sub { tuwf->resRedirect('/r'.tuwf->reqQuery(), 'temp') }; +TUWF::get qr{/experimental/v}, sub { tuwf->resRedirect('/v'.tuwf->reqQuery(), 'perm') }; +TUWF::get qr{/experimental/r}, sub { tuwf->resRedirect('/r'.tuwf->reqQuery(), 'perm') }; TUWF::get qr{/u/list(/[a-z0]|/all)?}, sub { tuwf->resRedirect('/u'.(tuwf->capture(1)//'/all'), 'perm') }; diff --git a/lib/VNWeb/Releases/List.pm b/lib/VNWeb/Releases/List.pm index 8e985a23..c3f07e78 100644 --- a/lib/VNWeb/Releases/List.pm +++ b/lib/VNWeb/Releases/List.pm @@ -45,7 +45,7 @@ TUWF::get qr{/r}, sub { my $q = eval { tuwf->compile({ advsearch => 'r' })->validate(filter_release_adv filter_parse r => $opt->{fil})->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 'r' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); diff --git a/lib/VNWeb/Staff/List.pm b/lib/VNWeb/Staff/List.pm index cf773131..07bcd5d8 100644 --- a/lib/VNWeb/Staff/List.pm +++ b/lib/VNWeb/Staff/List.pm @@ -46,7 +46,7 @@ TUWF::get qr{/s(?:/(?<char>all|[a-z0]))?}, sub { $f = filter_staff_adv $f; tuwf->compile({ advsearch => 's' })->validate(@$f > 1 ? $f : undef)->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 's' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); diff --git a/lib/VNWeb/TT/TagPage.pm b/lib/VNWeb/TT/TagPage.pm index 2de7c27d..9da7a996 100644 --- a/lib/VNWeb/TT/TagPage.pm +++ b/lib/VNWeb/TT/TagPage.pm @@ -85,7 +85,7 @@ sub vns_ { $f = filter_vn_adv $f; tuwf->compile({ advsearch => 'v' })->validate(@$f > 1 ? $f : undef)->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 'v' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); diff --git a/lib/VNWeb/TT/TraitPage.pm b/lib/VNWeb/TT/TraitPage.pm index 2ca10595..14e00aee 100644 --- a/lib/VNWeb/TT/TraitPage.pm +++ b/lib/VNWeb/TT/TraitPage.pm @@ -77,7 +77,7 @@ sub chars_ { $f = filter_char_adv $f; tuwf->compile({ advsearch => 'c' })->validate(@$f > 1 ? $f : undef)->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 'c' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); diff --git a/lib/VNWeb/VN/List.pm b/lib/VNWeb/VN/List.pm index 90a6b93b..4949e139 100644 --- a/lib/VNWeb/VN/List.pm +++ b/lib/VNWeb/VN/List.pm @@ -106,7 +106,7 @@ TUWF::get qr{/v(?:/(?<char>all|[a-z0]))?}, sub { ); tuwf->compile({ advsearch => 'v' })->validate(@q > 1 ? ['and',@q] : @q)->data; }; - return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, rfil => undef, cfil => undef, f => $q), 'temp') if $q; + return tuwf->resRedirect(tuwf->reqPath().'?'.query_encode(%$opt, fil => undef, rfil => undef, cfil => undef, f => $q), 'perm') if $q; } $opt->{f} = advsearch_default 'v' if !$opt->{f}{query} && !defined tuwf->reqGet('f'); |