X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=vhost%2Fwebpac2.cgi;h=045297f33f5eb8f7812462d192b88756c31f68c5;hb=04e87d8aeb577c8e6d835493deba7c8bbaa6dc3c;hp=3825fe227c5fa690a312262772e4ea9bdccff18a;hpb=91fc3eea6fe1625d47fb126d6199baa169f8e70b;p=webpac2 diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index 3825fe2..045297f 100755 --- a/vhost/webpac2.cgi +++ b/vhost/webpac2.cgi @@ -8,14 +8,61 @@ use CGI::Carp qw/fatalsToBrowser/; use File::Slurp; use YAML; use Search::Estraier; +use Data::Page; +use Data::Dump qw/dump/; + +my $range_around = 5; +my $entries_per_page = 30; print header; sub dump_yaml { - print qq|
|, YAML::Dump( @_ ), qq||; + my $name = shift; + print qq|
# $name\n|, YAML::Dump( @_ ), qq||; +} + +sub show_pager { + my ($pager,$coderef) = @_; + + 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 ) = ( '<<', '>>' ); + + return + $pager->previous_page ? $coderef->( $pager->previous_page, $prev ) : $prev + , join( ' ', map { + if ( $_ == $pager->current_page ) { + qq|$_|; + } elsif ( $_ eq '' ) { + qq|...|; + } else { + $coderef->( $_ ); + } + } @show_pages ) + , $pager->next_page ? $coderef->( $pager->next_page, $next ) : $next + ; + } -my $path = $ENV{PATH_INFO}; +my $path = $ENV{PATH_INFO} || 'ecas'; my $dir = $0; $dir =~ s{/[^/]+.cgi}{}; @@ -24,6 +71,15 @@ my $config = YAML::LoadFile( "$dir/$path/config.yml" ); my $database = (keys %{ $config->{databases} })[0]; die "$database not in $path" unless $path =~ m{\Q$database\E}; +my $html_markup = "$dir/$path/html.pm"; +my $html_markup_skip; +if ( -e $html_markup ) { + require $html_markup; + $html_markup = $database . '::html'; +} else { + undef $html_markup; +} + my $estraier = YAML::LoadFile( "$dir/../var/estraier/$database.yaml" ); my $db = $config->{databases}->{$database}; @@ -37,49 +93,97 @@ print ), h1( $db->{name} ), qq|