--- trunk/data/indexer.pl	2005/10/29 18:54:40	49
+++ trunk/data/indexer.pl	2006/04/14 16:17:19	50
@@ -1,19 +1,19 @@
 #!/usr/bin/perl -w
 
 use strict;
-use HyperEstraier;
+use Search::Estraier;
 
 # score for words in title
 my $title_rank = 3;
 
 open(my $t, "gzip -cd trivia.list.gz |") || die "can't open trivia.list.gz: $!";
 
-# open the database
-my $db = HyperEstraier::Database->new();
-$db->open('casket', $HyperEstraier::Database::DBWRITER | $HyperEstraier::Database::DBCREAT);
 # open node
-my $node = HyperEstraier::Node->new("http://localhost:1978/node/trivia");
-$node->set_auth('admin', 'admin');
+my $node = Search::Estraier::Node->new(
+	url => 'http://localhost:1978/node/trivia',
+	user => 'admin',
+	passwd => 'admin',
+);
 
 
 my $header = 1;
@@ -71,7 +71,7 @@
 		print "$i ";
 
 		# create a document object 
-		my $doc = HyperEstraier::Document->new;
+		my $doc = Search::Estraier::Document->new;
 
 		# add attributes to the document object 
 		$doc->add_attr('@uri', "file://localhost/trivia/$i");
@@ -94,7 +94,6 @@
 
 
 		# register the document object to the database
-		$db->put_doc($doc, $HyperEstraier::Database::PDCLEAN);
 		$node->put_doc($doc);
 
 		$trivia = '';
@@ -123,7 +122,3 @@
 dump_data('quotes.data', $all_quotes);
 dump_data('years.data', $all_years);
 
-$db->sync();
-
-#print "\noptimizing...\n";
-#$db->optimize(0);