summaryrefslogtreecommitdiff
path: root/lib/VNWeb
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2021-01-29 10:48:57 +0100
committerYorhel <git@yorhel.nl>2021-01-29 10:48:59 +0100
commit1e12a4b6aa09e58e1a0d802b165cecf381abd8b6 (patch)
tree648ecec01f686bd6a83b48fc1457307335b38d23 /lib/VNWeb
parent6e7e9ea7ef755e0017f363409b11353aee86b471 (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.pm2
-rw-r--r--lib/VNWeb/Misc/Redirects.pm4
-rw-r--r--lib/VNWeb/Releases/List.pm2
-rw-r--r--lib/VNWeb/Staff/List.pm2
-rw-r--r--lib/VNWeb/TT/TagPage.pm2
-rw-r--r--lib/VNWeb/TT/TraitPage.pm2
-rw-r--r--lib/VNWeb/VN/List.pm2
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');