trunk/scripts/example_indexer.pl

#!/usr/bin/perl -w

use strict;
use Search::Estraier;

=head1 NAME

example_indexer.pl - example indexer for Search::Estraier

=cut

# create and configure node
my $node = new Search::Estraier::Node;
$node->set_url("http://localhost:1978/node/test");
$node->set_auth("admin","admin");

# create document
my $doc = new Search::Estraier::Document;

# add attributes
$doc->add_attr('@uri', "http://estraier.gov/example.txt");
$doc->add_attr('@title', "Over the Rainbow");

# add body text to document
$doc->add_text("Somewhere over the rainbow.  Way up high.");
$doc->add_text("There's a land that I heard of once in a lullaby.");

die "error: ", $node->status,"\n" unless ($node->put_doc($doc));

1	#!/usr/bin/perl -w
2
3	use strict;
4	use Search::Estraier;
5
6	=head1 NAME
7
8	example_indexer.pl - example indexer for Search::Estraier
9
10	=cut
11
12	# create and configure node
13	my $node = new Search::Estraier::Node;
14	$node->set_url("http://localhost:1978/node/test");
15	$node->set_auth("admin","admin");
16
17	# create document
18	my $doc = new Search::Estraier::Document;
19
20	# add attributes
21	$doc->add_attr('@uri', "http://estraier.gov/example.txt");
22	$doc->add_attr('@title', "Over the Rainbow");
23
24	# add body text to document
25	$doc->add_text("Somewhere over the rainbow. Way up high.");
26	$doc->add_text("There's a land that I heard of once in a lullaby.");
27
28	die "error: ", $node->status,"\n" unless ($node->put_doc($doc));
29