X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=vhost%2Fwebpac2.cgi;h=82c52a9dbd5733b9113718eb18f27bafaf287265;hb=921bff74b889275112e0cfa64fcadad3aef46dac;hp=812793595bc3f6aa836876a974535940cfb42b62;hpb=69577da33be9ae1baf558413c78037c2ed64189d;p=webpac2 diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index 8127935..82c52a9 100755 --- a/vhost/webpac2.cgi +++ b/vhost/webpac2.cgi @@ -7,15 +7,75 @@ use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; use File::Slurp; use YAML; -use Search::Estraier; +use Data::Page; +use Data::Dump qw/dump/; +use SWISH::API; +use JSON; -print header; +my $range_around = 5; +my $entries_per_page = 30; +my $debug = param('debug'); + +print header( + -charset => 'utf-8', +); sub dump_yaml { - print qq|
|, YAML::Dump( @_ ), qq||; + my $name = shift; + print qq|
# $name\n|, YAML::Dump( @_ ), qq|| if $debug; } -my $path = $ENV{PATH_INFO}; +sub show_pager { + my ($pager) = @_; + + my @show_pages; + my $after_current = 0; + + if ( $pager->current_page <= $range_around + 2 ) { + @show_pages = ( $pager->first_page .. $pager->current_page ); + $after_current = $range_around - $pager->current_page; + } else { + @show_pages = ( $pager->first_page, '', $pager->current_page - $range_around .. $pager->current_page ); + } + + if ( $pager->current_page + $after_current + $range_around + 1 >= $pager->last_page ) { + push @show_pages, ( $pager->current_page + 1 .. $pager->last_page ); + } else { + push @show_pages, ( $pager->current_page + 1 .. $pager->current_page + $after_current + $range_around, '', $pager->last_page ); + } + +# dump_yaml( 'show_pages', \@show_pages ); + + return '' unless $#show_pages; + + my ( $prev, $next ) = ( '<<', '>>' ); + + sub li_a_href { + my ( $page, $label, $attr ) = @_; + param( 'current_page', $page ); + my $url = self_url( -query => 1 ); + $attr ||= ''; + $label ||= $page; + qq|