-
+my $v = {
+ search => '',
+ hits => 0,
+ page => 0,
+ max_page => 0,
+ time => '',
+ id => time() . rand(99),
};
-my $node = new Search::Estraier::Node(
- url => 'http://localhost:1978/node/books',
- user => 'admin',
- passwd => 'admin',
- croak_on_error => 1,
-);
-
-my $o = $q->param('index') || 0;
-my $search = $q->param('q');
-
-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, 0);
-
-my $max = 0;
-
-if (defined($nres)) {
- $max = $nres->hits;
- print "Got ", $nres->hits, " results for $search\n";
-
- 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;
- }
+my $json;
+
+sub debug {
+ my ($text,$var) = @_;
+ print "
$text = ", dump($var), "
";
+}
+#debug('config', $config);
- # for each document in results
- for my $i ( 0 ... $nres->doc_num - 1 ) {
+sub json {
+ return
+ '
';
+}
+
+sub sort_order {
+ my $out;
- my $rdoc = $nres->get_doc($i);
+ my $sort = $q->param('sort');
- print "
";
+ $out .= '";
+ foreach my $s (@{ $config->{estraier}->{order} }) {
+ my ($text,$value) = %{$s};
+ $out .= qq{
};
}
-} else {
- die "error: ", $node->status,"\n";
+
+ $out .= '';
}
+sub get_results {
+ my $p = {@_};
-print qq{
-
-