summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r--lib/VNDB/Handler/Releases.pm9
-rw-r--r--lib/VNDB/Handler/Tags.pm12
-rw-r--r--lib/VNDB/Handler/VNBrowse.pm8
3 files changed, 15 insertions, 14 deletions
diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm
index 49d9441a..20ceb493 100644
--- a/lib/VNDB/Handler/Releases.pm
+++ b/lib/VNDB/Handler/Releases.pm
@@ -9,7 +9,7 @@ use VNDB::Types;
TUWF::register(
- qr{r} => \&browse,
+ qr{old/r} => \&browse,
qr{r/engines} => \&engines,
qr{xml/engines.xml} => \&enginexml,
);
@@ -39,7 +39,7 @@ sub browse {
$self->htmlHeader(title => 'Browse releases');
- form method => 'get', action => '/r', 'accept-charset' => 'UTF-8';
+ form method => 'get', action => '/old/r', 'accept-charset' => 'UTF-8';
div class => 'mainbox';
h1 'Browse releases';
$self->htmlSearchBox('r', $f->{q});
@@ -52,7 +52,7 @@ sub browse {
end;
end 'form';
- my $uri = sprintf '/r?q=%s;fil=%s', uri_escape($f->{q}), $f->{fil};
+ my $uri = sprintf '/old/r?q=%s;fil=%s', uri_escape($f->{q}), $f->{fil};
$self->htmlBrowse(
class => 'relbrowse',
items => $list,
@@ -153,7 +153,8 @@ sub engines {
ul;
for my $e (@$lst) {
li;
- a href => '/r?fil='.fil_serialize({engine => $e->{engine}}), $e->{engine};
+ # TODO: link to new advsearch listing
+ a href => '/old/r?fil='.fil_serialize({engine => $e->{engine}}), $e->{engine};
b class => 'grayedout', " $e->{cnt}";
end;
}
diff --git a/lib/VNDB/Handler/Tags.pm b/lib/VNDB/Handler/Tags.pm
index bced924f..d4807055 100644
--- a/lib/VNDB/Handler/Tags.pm
+++ b/lib/VNDB/Handler/Tags.pm
@@ -10,7 +10,7 @@ use VNDB::Types;
TUWF::register(
- qr{g([1-9]\d*)}, \&tagpage,
+ qr{old/g([1-9]\d*)}, \&tagpage,
qr{g/debug}, \&fulltree,
qr{xml/tags\.xml}, \&tagxml,
);
@@ -106,15 +106,15 @@ sub tagpage {
childtags($self, 'Child tags', 'g', $t) if @{$t->{childs}};
if($t->{searchable} && $t->{state} == 2) {
- form action => "/g$t->{id}", 'accept-charset' => 'UTF-8', method => 'get';
+ form action => "/old/g$t->{id}", 'accept-charset' => 'UTF-8', method => 'get';
div class => 'mainbox';
a class => 'addnew', href => "/g/links?t=$tag", 'Recently tagged';
h1 'Visual novels';
p class => 'browseopts';
- a href => "/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=0", $f->{m} == 0 ? (class => 'optselected') : (), 'Hide spoilers';
- a href => "/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=1", $f->{m} == 1 ? (class => 'optselected') : (), 'Show minor spoilers';
- a href => "/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=2", $f->{m} == 2 ? (class => 'optselected') : (), 'Spoil me!';
+ a href => "/old/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=0", $f->{m} == 0 ? (class => 'optselected') : (), 'Hide spoilers';
+ a href => "/old/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=1", $f->{m} == 1 ? (class => 'optselected') : (), 'Show minor spoilers';
+ a href => "/old/g$t->{id}?fil=$f->{fil};s=$f->{s};o=$f->{o};m=2", $f->{m} == 2 ? (class => 'optselected') : (), 'Spoil me!';
end;
p class => 'filselect';
@@ -133,7 +133,7 @@ sub tagpage {
}
end 'div';
end 'form';
- $self->htmlBrowseVN($list, $f, $np, "/g$t->{id}?fil=$f->{fil};m=$f->{m}", 1) if @$list;
+ $self->htmlBrowseVN($list, $f, $np, "/old/g$t->{id}?fil=$f->{fil};m=$f->{m}", 1) if @$list;
}
$self->htmlFooter(pref_code => 1);
diff --git a/lib/VNDB/Handler/VNBrowse.pm b/lib/VNDB/Handler/VNBrowse.pm
index 64cc57d4..090f58ad 100644
--- a/lib/VNDB/Handler/VNBrowse.pm
+++ b/lib/VNDB/Handler/VNBrowse.pm
@@ -9,7 +9,7 @@ use VNDB::Types;
TUWF::register(
- qr{v/([a-z0]|all)} => \&list,
+ qr{old/v/([a-z0]|all)} => \&list,
);
@@ -78,13 +78,13 @@ sub list {
$self->htmlHeader(title => 'Browse visual novels', search => $f->{q});
my $quri = uri_escape($f->{q});
- form action => '/v/all', 'accept-charset' => 'UTF-8', method => 'get';
+ form action => '/old/v/all', 'accept-charset' => 'UTF-8', method => 'get';
# url generator
my $url = sub {
my($char, $toggle) = @_;
- return "/v/$char?q=$quri;fil=$f->{fil};rfil=$f->{rfil};cfil=$f->{cfil};s=$f->{s};o=$f->{o}" .
+ return "/old/v/$char?q=$quri;fil=$f->{fil};rfil=$f->{rfil};cfil=$f->{cfil};s=$f->{s};o=$f->{o}" .
($toggle ? ";$toggle=".($f->{$toggle}?0:1) : '');
};
@@ -118,7 +118,7 @@ sub list {
end;
end 'form';
- $self->htmlBrowseVN($list, $f, $np, "/v/$char?q=$quri;fil=$f->{fil};rfil=$f->{rfil};cfil=$f->{cfil}", $f->{fil} =~ /tag_inc-/);
+ $self->htmlBrowseVN($list, $f, $np, "/old/v/$char?q=$quri;fil=$f->{fil};rfil=$f->{rfil};cfil=$f->{cfil}", $f->{fil} =~ /tag_inc-/);
$self->htmlFooter(pref_code => 1);
}