diff options
Diffstat (limited to 'lib/VNDB/Handler/VNBrowse.pm')
| -rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 183 |
1 files changed, 183 insertions, 0 deletions
diff --git a/lib/VNDB/Handler/VNBrowse.pm b/lib/VNDB/Handler/VNBrowse.pm new file mode 100644 index 00000000..8af5791e --- /dev/null +++ b/lib/VNDB/Handler/VNBrowse.pm @@ -0,0 +1,183 @@ + +package VNDB::Handler::VNBrowse; + +use strict; +use warnings; +use YAWF ':html'; +use VNDB::Func; + + +YAWF::register( + qr{v/([a-z0]|all)} => \&list, +); + + +sub list { + my($self, $char) = @_; + + my $f = $self->formValidate( + { name => 's', required => 0, default => 'title', enum => [ qw|title rel| ] }, + { name => 'o', required => 0, default => 'a', enum => [ 'a','d' ] }, + { name => 'p', required => 0, default => 1, template => 'int' }, + { name => 'q', required => 0, default => '' }, + { name => 'sq', required => 0, default => '' }, + ); + return 404 if $f->{_err}; + $f->{q} ||= $f->{sq}; + + # NOTE: this entire search thingy can also be done using a PgSQL fulltext search, + # which is faster and requires less code. It does require an extra database + # column, index and some triggers, though + + my(@cati, @cate, @plat, @lang); + my $q = $f->{q}; + if($q) { + # VNDBID + return $self->resRedirect('/'.$1.$2.(!$3 ? '' : $1 eq 'd' ? '#'.$3 : '.'.$3), 'temp') + if $q =~ /^([vrptud])([0-9]+)(?:\.([0-9]+))?$/; + + if(!($q =~ s/^title://)) { + # categories + my %catl = map { + my $ic = $_; + map { $ic.$_ => $self->{categories}{$ic}[1]{$_} } keys %{$self->{categories}{$ic}[1]} + } keys %{$self->{categories}}; + + $q =~ s/-(?:$catl{$_}|c:$_)//ig && push @cate, $_ for keys %catl; + $q =~ s/(?:$catl{$_}|c:$_)//ig && push @cati, $_ for keys %catl; + + # platforms + $_ ne 'oth' && $q =~ s/(?:$self->{platforms}{$_}|p:$_)//ig && push @plat, $_ for keys %{$self->{platforms}}; + + # languages + $q =~ s/($self->{languages}{$_}|l:$_)//ig && push @lang, $_ for keys %{$self->{languages}}; + } + } + $q =~ s/ +$//; + $q =~ s/^ +//; + + my($list, $np) = $self->dbVNGet( + $char ne 'all' ? ( char => $char ) : (), + $q ? ( search => $q ) : (), + results => 50, + page => $f->{p}, + order => ($f->{s} eq 'rel' ? 'c_released' : 'title').($f->{o} eq 'a' ? ' ASC' : ' DESC'), + @cati ? ( cati => \@cati ) : (), + @cate ? ( cate => \@cate ) : (), + @lang ? ( lang => \@lang ) : (), + @plat ? ( platform => \@plat ) : (), + ); + + $self->resRedirect('/v'.$list->[0]{id}, 'temp') + if $q && @$list == 1; + + $self->htmlHeader(title => 'Browse visual novels', search => $f->{q}); + _filters($self, $f, $char); + $self->htmlBrowse( + class => 'vnbrowse', + items => $list, + options => $f, + nextpage => $np, + pageurl => "/v/$char?o=$f->{o};s=$f->{s};q=$f->{q}", + sorturl => "/v/$char?q=$f->{q}", + header => [ + [ 'Title', 'title' ], + [ '', 0 ], + [ '', 0 ], + [ 'Released', 'rel' ], + ], + row => sub { + my($s, $n, $l) = @_; + Tr $n % 2 ? (class => 'odd') : (); + td class => 'tc1'; + a href => '/v'.$l->{id}, title => $l->{original}||$l->{title}, shorten $l->{title}, 100; + end; + td class => 'tc2'; + $_ ne 'oth' && cssicon $_, $self->{platforms}{$_} + for (sort split /\//, $l->{c_platforms}); + end; + td class => 'tc3'; + cssicon "lang $_", $self->{languages}{$_} + for (reverse sort split /\//, $l->{c_languages}); + end; + td class => 'tc4'; + lit monthstr $l->{c_released}; + end; + end; + }, + ); + $self->htmlFooter; +} + + +sub _filters { + my($self, $f, $char) = @_; + + div class => 'mainbox'; + h1 'Browse visual novels'; + form class => 'search', action => '/v/all', 'accept-charset' => 'UTF-8', method => 'get'; + fieldset; + input type => 'text', name => 'q', id => 'q', class => 'text', value => $f->{q}; + input type => 'submit', class => 'submit', value => 'Search!'; + end; + end; + p class => 'browseopts'; + for ('all', 'a'..'z', 0) { + a href => "/v/$_", $_ eq $char ? (class => 'optselected') : (), $_ ? uc $_ : '#'; + } + end; + a id => 'advselect', href => '#'; + lit '<i>▸</i> advanced search'; + end; + div id => 'advoptions', class => 'hidden'; + + h2; + lit 'Categories <b>(boolean and, selecting more gives less results. The categories are explained on <a href="/d1">this page</a>)</b>'; + end; + ul id => 'catselect'; + for my $c (qw| e g t p h l s |) { + $c !~ /[thl]/ ? li : br; + txt $self->{categories}{$c}[0]; + ul; + li id => "cat_$c$_", $self->{categories}{$c}[1]{$_} + for (sort keys %{$self->{categories}{$c}[1]}); + end; + end if $c !~ /[gph]/; + } + end; + + h2; + lit 'Languages <b>(boolean or, selecting more gives more results)</b>'; + end; + for(sort @{$self->dbLanguages}) { + span; + input type => 'checkbox', id => "lang_$_"; + label for => "lang_$_"; + cssicon "lang $_", $self->{languages}{$_}; + txt $self->{languages}{$_}; + end; + end; + } + + h2; + lit 'Platforms <b>(boolean or, selecting more gives more results)</b>'; + end; + for(sort keys %{$self->{platforms}}) { + next if $_ eq 'oth'; + span; + input type => 'checkbox', id => "plat_$_"; + label for => "plat_$_"; + cssicon $_, $self->{platforms}{$_}; + txt $self->{platforms}{$_}; + end; + end; + } + + clearfloat; + end; + end; +} + + +1; + |