git.rot13.org Git - webpac2/blob - vhost/webpac2.cgi

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use CGI qw/:standard/;
   7 use CGI::Carp qw/fatalsToBrowser/;
   8 use File::Slurp;
   9 use YAML;
  10 use Search::Estraier;
  11 use Data::Page;
  12 use Data::Dump qw/dump/;
  13
  14 my $range_around = 5;
  15 my $entries_per_page = 30;
  16 my $debug = param('debug');
  17
  18 print header(
  19         -charset => 'utf-8',
  20 );
  21
  22 sub dump_yaml {
  23         my $name = shift;
  24         print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>| if $debug;
  25 }
  26
  27 sub show_pager {
  28         my ($pager) = @_;
  29
  30         my @show_pages;
  31         my $after_current = 0;
  32
  33         if ( $pager->current_page <= $range_around + 2 ) {
  34                 @show_pages = ( $pager->first_page .. $pager->current_page );
  35                 $after_current = $range_around - $pager->current_page;
  36         } else {
  37                 @show_pages = ( $pager->first_page, '', $pager->current_page - $range_around .. $pager->current_page );
  38         }
  39
  40         if ( $pager->current_page + $after_current + $range_around + 1 >= $pager->last_page ) {
  41                 push @show_pages, ( $pager->current_page + 1 .. $pager->last_page );
  42         } else {
  43                 push @show_pages, ( $pager->current_page + 1 .. $pager->current_page + $after_current + $range_around, '', $pager->last_page );
  44         }
  45
  46 #       dump_yaml( 'show_pages', \@show_pages );
  47
  48         return '' unless $#show_pages;
  49
  50         my ( $prev, $next ) = ( '&lt;&lt;', '&gt;&gt;' );
  51
  52         sub li_a_href {
  53                 my ( $page, $label, $attr ) = @_;
  54                 param( 'current_page', $page );
  55                 my $url = self_url( -query => 1 );
  56                 $attr ||= '';
  57                 $label ||= $page;
  58                 qq|<li$attr><a href="$url" title="$page">$label</a></li>|;
  59         }
  60
  61         return
  62                   $pager->previous_page ? li_a_href( $pager->previous_page, $prev ) : qq|<li class=skip>$prev</li>|
  63                 , ( map {
  64                         if ( $_ eq $pager->current_page ) {
  65                                 qq|<li class=current_page>$_</li>|;
  66                         } elsif ( $_ eq '' ) {
  67                                 qq|<li class=skip>...</li>|;
  68                         } else {
  69                                 li_a_href( $_ );
  70                         }
  71                 } @show_pages )
  72                 , $pager->next_page ? li_a_href( $pager->next_page, $next ) : qq|<li class=skip>$next</li>|
  73                 ;
  74
  75 }
  76
  77 my $path = $ENV{PATH_INFO} || 'ecas';
  78 my $dir = $0;
  79 $dir =~ s{/[^/]+.cgi}{};
  80
  81 my $config = YAML::LoadFile( "$dir/$path/config.yml" );
  82
  83 my $database = (keys %{ $config->{databases} })[0];
  84 die "$database not in $path" unless $path =~ m{\Q$database\E};
  85
  86 my $html_markup = "$dir/$path/html.pm";
  87 my $html_markup_skip;
  88 if ( -e $html_markup ) {
  89         require $html_markup;
  90         $html_markup = $database . '::html';
  91 } else {
  92         undef $html_markup;
  93 }
  94
  95 my $estraier = YAML::LoadFile( "$dir/../var/estraier/$database.yaml" );
  96
  97 my $db = $config->{databases}->{$database};
  98
  99 my @attr = keys %{ $estraier->{attr} }; # FIXME replace with real gnerated lookup
 100
 101 print
 102         start_html(
 103                 -title => $db->{name},
 104                 -style => '../../style.css',
 105         ),
 106         h1( $db->{name} ),
 107         qq|<div id=description>|, $db->{description}, qq|</div>|,
 108         start_form( -action => self_url( query => 0 ) ),
 109                 radio_group(
 110                         -name => 'attr',
 111                         -values => [ @attr ],
 112 #                       -linebreak => 0,
 113                 ),
 114                 textfield( -name => 'search' ),
 115                 popup_menu( -name => 'attr_operator', -values => [ '', 'STRBW', 'STREQ' ],
 116                         -labels => {
 117                                 '' => 'Bilo koja riječ',
 118                                 'STRBW' => 'Početak',
 119                                 'STREQ' => 'Točan oblik',
 120                         },
 121                 ),
 122                 submit,
 123                 hidden( -name => 'entries_per_page', -default => $entries_per_page ),
 124                 hidden( -name => 'current_page', -default => 1 ),
 125                 checkbox( -name => 'debug', -default => 0 ), # FIXME hidden?
 126                 qq|<div id=inputs>|,
 127                 h2( 'Select input' ),
 128                 checkbox_group(
 129                         -name => 'only_input',
 130                         -values => [ map { $_->{name} } @{ $db->{input} } ],
 131                         -linebreak=> 'true',
 132                 ),
 133                 qq|</div>|,
 134
 135 ;
 136
 137 dump_yaml( 'inputs', $db->{input} );
 138 dump_yaml( 'input names', map { $_->{name} } @{ $db->{input} } );
 139
 140 print   end_form;
 141
 142 if ( my $search = param('search') ) {
 143
 144         print qq|<div id="results">|;
 145
 146         my $node = Search::Estraier::Node->new(
 147                 url => $config->{hyperestraier}->{masterurl} . '/node/' . $database,
 148                 croak_on_error => 1,
 149         );
 150
 151         param( 'entries_per_page', $entries_per_page ) unless param('entries_per_page'); # FIXME not needed?
 152         my $pager = Data::Page->new;
 153         $pager->total_entries( param('current_page') * param('entries_per_page') );
 154         $pager->$_( param($_) ) foreach ( qw/entries_per_page current_page/ );
 155
 156         dump_yaml( 'pager', $pager );
 157
 158         my $cond = Search::Estraier::Condition->new( debug => $debug );
 159         $cond->set_phrase( $search );
 160         $cond->set_skip( $pager->skipped );
 161         $cond->set_max(  $pager->entries_per_page );
 162
 163         if ( my $op = param('attr_operator') ) {
 164                 $cond->add_attr( param('attr') . " $op " . param('search') );
 165         }
 166
 167         foreach my $i ( param('only_input') ) {
 168                 $cond->add_attr( '@uri STRBW file:///search/' . $database . '/' . $i );
 169         }
 170
 171
 172         my $nres = $node->search( $cond, 0 );
 173         $pager->total_entries( $nres->hits );
 174
 175         dump_yaml( 'cond', $cond );
 176         dump_yaml( 'nres', $nres );
 177
 178         if ( ! $nres ) {
 179                 my $no_results = "No results for search '%s'";
 180                 printf qq|<div class="error">$no_results</div>\n\n|, $search;
 181         } else {
 182
 183                 my $results = "%d results for search '%s' showing results %d - %d on page %d";
 184                 printf qq|<div class="message">$results</div>\n\n|, $nres->hits, $search, $pager->first, $pager->last, $pager->current_page;
 185
 186                 my $pager_html = join("\n", show_pager( $pager ));
 187
 188                 print qq|<ul class="pager">$pager_html</ul>\n\n| if $pager_html;
 189
 190                 my $start = $pager->first;
 191                 print qq|<ol start=$start>\n|;
 192
 193                 foreach my $i ( 1 .. $nres->doc_num ) {
 194                         my $rdoc = $nres->get_doc( $i - 1 );
 195                         print qq|<li>|;
 196                         foreach my $attr ( @attr ) {
 197                                 my $v = $rdoc->attr( $attr );
 198                                 if ( defined $v && $html_markup && ! $html_markup_skip->{$attr} ) {
 199                                         eval "\$v = $html_markup->$attr( \$v );";
 200                                         if ( $@ ) {
 201                                                 warn "disable html markup for $attr: $@";
 202                                                 $html_markup_skip->{$attr} = $@;
 203                                         }
 204                                 }
 205                                 next unless defined $v;
 206                                 print qq|<div><label>$attr</label><span class=$attr>$v</span></div>\n|;
 207                         }
 208                         print qq|</li>\n|;
 209                 }
 210                 print qq|</ol>\n\n|;
 211
 212                 print qq|<ul class="pager bottom">$pager_html</ul>\n\n| if $pager_html;
 213         }
 214         print qq|</div>|;
 215
 216         dump_yaml( 'pager', $pager );
 217
 218 }
 219
 220 dump_yaml( 'estraier', $estraier );
 221 dump_yaml( 'db', $db );
 222 dump_yaml( 'html_markup_skip', $html_markup_skip );
 223
 224 print   end_html;