/[swish]/trunk/html/swish.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/html/swish.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 41 by dpavlin, Sun Jun 1 12:13:36 2003 UTC revision 81 by dpavlin, Sat Aug 28 22:15:59 2004 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use CGI qw/:standard -no_xhtml/;  use CGI qw/:standard -no_xhtml/;
5  use CGI::Carp qw(fatalsToBrowser);  use CGI::Carp qw(fatalsToBrowser);
6  use SWISH;  use SWISH::API;
7  use XML::Simple;  use XML::Simple;
8  use Lingua::Spelling::Alternative;  use Lingua::Spelling::Alternative;
9  use Text::Iconv;  use Text::Iconv;
10    use Data::Pageset;
11    
12    
13    sub get_snippet {
14            my $context_chars = 100;
15    
16            my $desc = shift || return '';
17            # test if $desc contains any of our query words
18            my @snips;
19    
20            my @colors = qw{#ffff66 #a0ffff #99ff99 #ff9999 #ff66ff};
21    
22            my $i = 0;
23    
24            for my $q (@_) {
25                    if ($desc =~ m/(.*?)(\Q$q\E)(.*)/si) {
26                            my $bef = $1;
27                            my $qm = $2;
28                            my $af = $3;
29                            $bef = substr $bef, -$context_chars;
30                            $af = substr $af, 0, $context_chars;
31                            
32                            # no partial words...
33                            $af =~ s,^\S+\s+|\s+\S+$,,gs;
34                            $bef =~ s,^\S+\s+|\s+\S+$,,gs;
35    
36                            push(@snips, "$bef <span style=\"background:".$colors[$i]."\">$qm</span> $af");
37                            $i++;
38                            $i = 0 if ($i > $#colors);
39                    }
40            }
41            my $ellip = ' ... ';
42            my $snippet = $ellip. join($ellip, @snips) . $ellip;
43      
44            return $snippet;
45    }
46    
47    # for pager
48    my $pages_per_set = 20;
49    
50  Text::Iconv->raise_error(0);     # Conversion errors raise exceptions  Text::Iconv->raise_error(0);     # Conversion errors raise exceptions
51  my $config=XMLin(undef,  my $config=XMLin(undef,
52  #               keyattr => { label => "value" },  #               keyattr => { label => "value" },
53                  forcecontent => 0,                  forcecontent => 0,
54                    ForceArray => [ 'path' ],
55          );          );
56    
57  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});
58  sub x {  sub x {
59            return if (! defined $_[0]);
60          return $from_utf8->convert($_[0]);          return $from_utf8->convert($_[0]);
61  }  }
62    
# Line 35  my @spellings; Line 76  my @spellings;
76  # FIX: doesn't work very well  # FIX: doesn't work very well
77  if ($config->{findaffix}) {  if ($config->{findaffix}) {
78          foreach my $findaffix (split(/[, ]+/,x($config->{findaffix}))) {          foreach my $findaffix (split(/[, ]+/,x($config->{findaffix}))) {
79                    next if (! -f $findaffix);
80                  my $spelling_alt = new Lingua::Spelling::Alternative;                  my $spelling_alt = new Lingua::Spelling::Alternative;
81                  $spelling_alt->load_findaffix($findaffix);                  $spelling_alt->load_findaffix($findaffix);
82                  push @spellings,$spelling_alt;                  push @spellings,$spelling_alt;
# Line 42  if ($config->{findaffix}) { Line 84  if ($config->{findaffix}) {
84  }  }
85  if ($config->{affix}) {  if ($config->{affix}) {
86          foreach my $affix (split(/[, ]+/,x($config->{affix}))) {          foreach my $affix (split(/[, ]+/,x($config->{affix}))) {
87                    next if (! -f $affix);
88                  my $spelling_alt = new Lingua::Spelling::Alternative;                  my $spelling_alt = new Lingua::Spelling::Alternative;
89                  $spelling_alt->load_affix($affix);                  $spelling_alt->load_affix($affix);
90                  push @spellings,$spelling_alt;                  push @spellings,$spelling_alt;
# Line 49  if ($config->{affix}) { Line 92  if ($config->{affix}) {
92  }  }
93    
94  my $hits=0;  my $hits=0;
95  my $max_hits=x($config->{max_hits});  my $max_hits=param('max_hits') || x($config->{max_hits});
96    
97  my %labels;  my %labels;
98  foreach (@{$config->{labels}->{label}}) {  foreach (@{$config->{labels}->{label}}) {
99            next if (! $_->{value});        # skip unlimited (0)
100          $labels{$_->{value}} = x($_->{content});          $labels{$_->{value}} = x($_->{content});
101  }  }
102    
103  my $path = param('path');       # limit to this path  my $path;
104    # limit to this path
105    $path .= '"'.join('*" or "',param('path')).'*"' if (param('path'));
106  my %path_label;  my %path_label;
107  my @path_name;  my @path_name;
108  foreach (@{$config->{paths}->{path}}) {  foreach (@{$config->{paths}->{path}}) {
# Line 66  print STDERR "##: $_->{limit}",x($_->{co Line 112  print STDERR "##: $_->{limit}",x($_->{co
112          $path_label{$_->{limit}} = x($_->{content});          $path_label{$_->{limit}} = x($_->{content});
113  }  }
114    
115  my @properties = split(/\s+/,x($config->{properties}));  my @properties = split(/\s+/,x($config->{properties})) if ($config->{properties});
116    
117  if ($config->{charset}) {  if ($config->{charset}) {
118          print header(-charset=>x($config->{charset}));          print header(-charset=>x($config->{charset}));
# Line 84  print checkbox(-name=>'no_properties', - Line 130  print checkbox(-name=>'no_properties', -
130  if (@path_name) {  if (@path_name) {
131          print br,x($config->{text}->{limit});          print br,x($config->{text}->{limit});
132          print popup_menu(-name=>'path',-values=>\@path_name,-labels=>\%path_label,-default=>$path);          print popup_menu(-name=>'path',-values=>\@path_name,-labels=>\%path_label,-default=>$path);
133    } elsif (param('path')) {
134            print hidden(-name=>'path',-values=>param('path'));
135  }  }
136  print end_form,hr;  print end_form,hr;
137    
# Line 138  if (param('search')) { Line 186  if (param('search')) {
186          $s=~s/\*\*+/*/g;          $s=~s/\*\*+/*/g;
187    
188          # limit to some path          # limit to some path
189          $s = "swishdocpath=(\"*$path*\") and $s" if ($path);          $s = "swishdocpath=($path) and $s" if ($path);
190    
191          my %params;     # optional parametars for swish          my %params;     # optional parametars for swish
192    
193          # default format for output          # default format for output
194          my $hit_fmt = "<a href=\"%s\">%s</a> [%s]<br>\n";          my $hit_fmt = "<a href=\"%s\">%s</a> [%s]<br>\n";
195    
196            # output start of table
197            print qq{
198    <table border="0">
199            };
200            # html before and after each hit
201            my $tr_pre = qq{
202    <tr><td>
203            };
204            my $tr_post = qq{
205    </td></tr>
206            };
207    
208          if (@properties) {          if (@properties) {
209                  $hit_fmt = x($config->{hit}) if (! param('no_properties'));                  $hit_fmt = x($config->{hit}) if (! param('no_properties'));
210                  $params{properties} = \@properties;                  $params{properties} = \@properties;
# Line 152  if (param('search')) { Line 212  if (param('search')) {
212                  $hit_fmt = x($config->{hit}) if (x($config->{hit}));                  $hit_fmt = x($config->{hit}) if (x($config->{hit}));
213          }          }
214    
215          my $sh = SWISH->connect('Fork',          my $swish = SWISH::API->new($config->{index});
216                  prog     => x($config->{prog}),          $swish->AbortLastError if $swish->Error;
217                  indexes  => x($config->{index}),          my $results = $swish->Query($s);
218                  results  => sub {          my $hits = $results->Hits;
219                          my ($sh,$hit) = @_;  
220    
221            # build pager
222            my $current_page = param('page') || 1;
223    
224            my $pager = Data::Pageset->new({
225                    'total_entries' => $hits,
226                    'entries_per_page' => $max_hits,
227                    'current_page' => $current_page,
228                    'pages_per_set' => $pages_per_set,
229            });
230    
231            $results->SeekResult( $pager->first - 1 );
232    
233            # get number of entries on this page
234            my $i = $pager->entries_on_this_page;
235    
236            # print number of hits or error message
237            if ( !$hits ) {
238                    printf (x($config->{text}->{no_hits}),$s,$swish->ErrorString);
239            } else {
240                    printf (x($config->{text}->{hits}),$i,$results->Hits,$s);
241            }
242    
243            my %path2title;
244            use Data::Dumper;
245            foreach my $p (@{$config->{path2title}->{path}}) {
246                    $path2title{$p->{dir}} = $p->{content};
247            }
248    
249            for(my $i=$pager->first; $i<=$pager->last; $i++) {
250    
251                    my $result = $results->NextResult;
252                    last if (! $result);
253    
254                    my @arr;
255    
256                          if ($config->{url}) {                  foreach my $prop (@properties) {
257                                  printf ($hit_fmt ,"http://".virtual_host().x($config->{url}).$hit->swishdocpath,e($hit->swishtitle) || 'untitled',$hit->swishrank, map($hit->$_, @properties));                          if ($prop =~ m/swishdescription/) {
258                                    my $tmp = get_snippet(
259                                            $result->Property($prop),
260                                            split(/\s+/,$search)
261                                    );
262                                    
263                                    push @arr, $tmp;
264                          } else {                          } else {
265                                  printf ($hit_fmt ,$hit->swishdocpath,e($hit->swishtitle) || 'untitled',$hit->swishrank, map($hit->$_, @properties) );                                  push @arr, $result->Property($prop);
266                            }
267                    }
268    
269                    my $title = e($result->Property("swishtitle")) || 'untitled';
270                    my $rank = $result->Property("swishrank");
271                    my $host = $result->Property("swishdocpath");
272                    $host = "http://".virtual_host().x($config->{url}).$result->Property("swishdocpath") if ($config->{url});
273    
274                    foreach my $p (keys %path2title) {
275                            if ($host =~ m/$p/i) {
276                                    $title =~ s/$path2title{$p}\s*[:-]+\s*//;
277                                    $title = $path2title{$p}." :: ".$title;
278                                    last;
279                          }                          }
280                    }
281    
282  #                       print $_[1]->as_string,"<br>\n";                  print $tr_pre,$i,". ";
283  #                       my @fields = $hit->field_names;                  # print collection name which is not link
284  #                       print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields;                  if ($title =~ s/^(.+? :: )//) {
285                  },                          print $1;
286                  maxhits => param('max_hits') || $max_hits,                  }
                 \%params,  
         );  
287    
288          die $SWISH::errstr unless $sh;                  printf($hit_fmt, $host, $title || 'untitled', $rank, @arr);
289                    print $tr_post;
290    
291            }
292    
293          $hits = $sh->query($s);          # pager navigation
294            my $nav_html;
295    
296          if ($hits && $hits > 0) {          my $nav_fmt=qq{ <a href="%s">%s</a> };
297                  print p,hr;  
298                  printf (x($config->{text}->{hits}),$hits,param('max_hits') || $max_hits,$s);          if ($pager->current_page() > $pager->first_page) {
299          } else {                  param('page', $pager->current_page - 1);
300                  print p;                  $nav_html .= sprintf($nav_fmt,url(-relative=>1, -query=>1),'&lt;&lt;');
301                  printf (x($config->{text}->{no_hits}),$s,$sh->errstr);          }
302    
303            if ($pager->previous_set) {
304                    param('page', $pager->previous_set);
305                    $nav_html .= sprintf($nav_fmt,url(-relative=>1, -query=>1),'..');
306            }
307    
308    
309            foreach my $p (@{$pager->pages_in_set()}) {
310                    next if ($p < 0);
311    #       for (my $p=$pager->previous_set; $p <= $pager->next_set; $p++) {
312                    if($p == $pager->current_page()) {
313                            $nav_html .= "<b>$p</b> ";
314                    } else {
315                            param('page', $p);
316                            $nav_html .= sprintf($nav_fmt,url(-relative=>1, -query=>1),$p);
317                    }
318          }          }
319    
320            if ($pager->next_set) {
321                    param('page', $pager->next_set);
322                    $nav_html .= sprintf($nav_fmt,url(-relative=>1, -query=>1),'..');
323            }
324    
325            if ($pager->current_page() < $pager->last_page) {
326                    param('page', $pager->current_page + 1);
327                    $nav_html .= sprintf($nav_fmt,url(-relative=>1, -query=>1),'&gt;&gt;');
328            }
329    
330            if ($config->{text}->{pages}) {
331                    $nav_html = x($config->{text}->{pages})." ".$nav_html;
332            }
333    
334            # end html table
335            print qq{
336    <tr><td>
337    $nav_html
338    </td></tr>
339    </table>
340            };
341    
342    
343    
344  } else {  } else {
345          print p(x($config->{text}->{footer}));          print p(x($config->{text}->{footer}));
346  }  }
Legend:
Removed from v.41  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.26