use DBIx::FullTextSearch;
use DBI;
use strict;

# the data source, that is the tables to be indexed
my $dbh = DBI->connect('dbi:mysql:database','user','password');

my $table_info = { 'DBIx_biography' => {
                                    table_name  => 'Biography',
                                    column_name => 'bio_text',
                 },
                   'DBIx_glossary' => {
                                    table_name  => 'Glossary',
                                    column_name => 'glossary_defination',
                   },
                   'DBIx_timeline' => {
                                    table_name  => 'Timeline',
                                    column_name => 'event_description',
                   },
                   'DBIx_quotes'   => {
                                    table_name  => 'Quotes',
                                    column_name => 'quote',
                   },
};


my $table_check = $dbh->prepare('show tables');
$table_check->execute;

my $tables;
while ( my ($table) = $table_check->fetchrow() ) {
    $tables{$table} = 1;
}

foreach my $front_end_table ( keys %{$table_info} ) {

    if ($tables{$front_end_table}) {

        $fts = DBIx::FullTextSearch->open($dbh, $front_end_table);
        $fts->empty;

    } else {
        
        $fts = DBIx::FullTextSearch->create($dbh, $front_end_table,
                                           
            frontend => 'table',        # type of frontend
            # table to be indexed
            table_name =>                $table_info->{$front_end_table}{'table_name'},        
            # column that has the info to be indexed
            column_name => $table_info->{$front_end_table}{'column_name'},  
            backend => 'column',        # type of storage for the backend

	    # you really should set these up, but I won't get
            # into that in this writeup

            #stoplist => 'sl_en',        # from example
            #stemmer => 'en-us'          # from example

            );
    }

    my $ids = $dbh->prepare(qq!SELECT hm_index
                            FROM $table_info->{$front_end_table}{'table_name'}!);
        
    $ids->execute() or die "$DBI::errstr problem";

    while ( my ($id) = $ids->fetchrow ) {
        $fts->index_document($id);
    }

}