#!/usr/bin/perl -w

use strict;
use Search::Estraier;

=head1 NAME

example_searcher.pl - example searcher for Search::Estraier

=cut

# create and configure node
my $node = new Search::Estraier::Node(
	url => 'http://localhost:1978/node/test',
	user => 'admin',
	passwd => 'admin',
	croak_on_error => 1,
);

# create condition
my $cond = new Search::Estraier::Condition;

# set search phrase
$cond->set_phrase("rainbow AND lullaby");

my $nres = $node->search($cond, 0);

if (defined($nres)) {
	print "Got ", $nres->hits, " results\n";

	# for each document in results
	for my $i ( 0 ... $nres->doc_num - 1 ) {
		# get result document
		my $rdoc = $nres->get_doc($i);
		# display attribte
		print "URI: ", $rdoc->attr('@uri'),"\n";
		print "Title: ", $rdoc->attr('@title'),"\n";
		print $rdoc->snippet,"\n";
	}
} else {
	die "error: ", $node->status,"\n";
}