#!/usr/local/bin/perl
use strict;
use DBI;
my $DB = 'DBI:mysql:test';
my $DBAUTH = ':';
my $doc_dbh = DBI->connect($DB, split(':', $DBAUTH, 2)) or die $DBI::errstr;
my $index_dbh = DBI->connect($DB, split(':', $DBAUTH, 2)) or die $DBI::errstr;
my $sth = $doc_dbh->prepare('select max(doc_id) from textindex_doc');
$sth->execute;
my ($max_doc_id) = $sth->fetchrow_array;
$sth->finish;
my $index = DBIx::TextIndex->new({
doc_dbh => $doc_dbh,
doc_table => 'textindex_doc',
doc_fields => ['doc'],
doc_id_field => 'doc_id',
index_dbh => $index_dbh,
collection => 'encantadas',
print_activity => 1,
});
$index->initialize;
$index->add_doc([1 .. $max_doc_id]);
$doc_dbh->disconnect;
$index_dbh->disconnect;
print "Done.\n";