-
-};
+ if (! $search) {
+ $v->{status} = 'Enter search query';
+ return;
+ }
-my $node = new Search::Estraier::Node(%{ $config->{estraier} });
+ if (! $page) {
+ $v->{status} = 'Error: no page number?';
+ return;
+ }
+
+ $search = join(" AND ", split(/\s+/, $search)) unless ($search =~ m/(?:AND|OR|\[|\])/);
+ $v->{search} = $search || '';
+
+ $v->{page} = $page;
-my $o = $q->param('index') || 0;
-my $search = $q->param('q');
-$search = join(" AND ", split(/\s+/, $search)) unless ($search =~ m/(?:AND|OR|\[|\])/);
-
-my $on_page = 30;
-my $skip = $o * $on_page;
-
-my $cond = new Search::Estraier::Condition;
-$cond->set_phrase( $search );
-$cond->set_max( $on_page );
-$cond->set_skip( $skip );
-
-my $nres = $node->search($cond, ( $config->{estraier}->{depth} || 0 ) );
-
-my $max = 0;
-
-if (defined($nres)) {
- $max = $nres->hits;
- my $time = $nres->hint('TIME');
- print qq{
-
- };
-
- sub html_snippet {
- my $text = shift || return;
- my $out = '';
- foreach my $s (split(/[\n\r]{2}/, $text)) {
- $out .= ' ... ' if ($out);
- my ($pre,$hit,$post) = split(/\n/,$s,3);
- $hit =~ s/\t.*$//;
- $out .=
- $q->escapeHTML( $pre || '' ) . '' .
- $q->escapeHTML( $hit || '' ) . '' .
- $q->escapeHTML( $post || '');
+ my $node = new Search::Estraier::Node(%{ $config->{estraier} });
+
+ my $on_page = 30;
+ my $skip = ( $page - 1 ) * $on_page;
+
+ my $cond = new Search::Estraier::Condition;
+ $cond->set_phrase( $search );
+ $cond->set_max( $on_page );
+ $cond->set_skip( $skip );
+
+ my $nres = $node->search($cond, ( $config->{estraier}->{depth} || 0 ) );
+
+ my $out;
+
+ if (defined($nres)) {
+ $v->{hits} = $nres->hits;
+ $v->{time} = $nres->hint('TIME');
+ $v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );
+
+ $v->{status} = qq{
+ Got $v->{hits} results for $v->{search}
+ in $v->{time} s
+ };
+
+ sub html_snippet {
+ my $text = shift || return;
+ my $out = '';
+ foreach my $s (split(/[\n\r]{2}/, $text)) {
+ $out .= ' ... ' if ($out);
+ my ($pre,$hit,$post) = split(/\n/,$s,3);
+ $hit =~ s/\t.*$//;
+ $out .=
+ $q->escapeHTML( $pre || '' ) . '' .
+ $q->escapeHTML( $hit || '' ) . '' .
+ $q->escapeHTML( $post || '');
+ }
+ return $out;
}
- return $out;
- }
- sub attr_regex {
- my ($rdoc,$attr) = @_;
- my $text = $rdoc->attr( $attr );
- return unless defined($text);
-
- if (my $r = $config->{estraier}->{attr_regex}->{$attr} ) {
- my $do = '$text =~ ' . $r . ';';
- eval $do;
- if ($@) {
- warn "eval $do failed: $@\n";
+ sub attr_regex {
+ my ($rdoc,$attr) = @_;
+ my $text = $rdoc->attr( $attr );
+ return unless defined($text);
+
+ if (my $r = $config->{estraier}->{attr_regex}->{$attr} ) {
+ my $do = '$text =~ ' . $r . ';';
+ eval $do;
+ if ($@) {
+ warn "eval $do failed: $@\n";
+ }
}
+ return $text;
}
- return $text;
- }
- # for each document in results
- for my $i ( 0 ... $nres->doc_num - 1 ) {
+ # for each document in results
+ for my $i ( 0 ... $nres->doc_num - 1 ) {
- my $rdoc = $nres->get_doc($i);
+ my $rdoc = $nres->get_doc($i);
- print "
- ";
+ $out .= '' . + '+ return ($out,$json); -
' . $rdoc->attr('@title') . '
' . + '' . html_snippet( $rdoc->snippet ) . '
' . + '' . attr_regex( $rdoc, 'source' ) . '
'; + my $uri = attr_regex( $rdoc, '@uri' ); + $out .= + qq{$uri } . + attr_regex( $rdoc, '@mdate' ) . + ' [' . ( $skip + $i + 1 ) . ']'; + } - print "", $rdoc->attr('@title'),"
\n"; - print "", attr_regex( $rdoc, 'source' ),"
\n"; - print "", html_snippet( $rdoc->snippet ),"
\n"; - my $uri = attr_regex( $rdoc, '@uri' ); - print qq{$uri }, - attr_regex( $rdoc, '@mdate' ); - print " [", $skip + $i + 1, "]"; - print ""; + } else { + $out .= 'error: ' . $node->status; } -} else { - die "error: ", $node->status,"\n"; -} + $json = ''; -print qq{ - -