diff options
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/Releases.pm | 9 | ||||
-rw-r--r-- | lib/VNDB/Handler/Tags.pm | 12 | ||||
-rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 8 |
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); } |