#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Wiki::Toolkit::Setup::DBIxFTSMySQL;

my ($dbname, $dbuser, $dbpass, $help);
GetOptions("name=s" => \$dbname,
           "user=s" => \$dbuser,
           "pass=s" => \$dbpass,
           "help"   => \$help,);

unless (defined($dbname)) {
    print "You must supply a database name with the --name option\n";
    print "further help can be found by typing 'perldoc $0'\n";
    exit 1;

if ($help) {
    print "Help can be found by typing 'perldoc $0'\n";
    exit 0;

Wiki::Toolkit::Setup::DBIxFTSMySQL::setup($dbname, $dbuser, $dbpass);

=head1 NAME

user-setup-mysql-dbixfts - set up a DBIx::FullTextSearch backend for Wiki::Toolkit


  user-setup-mysql-dbixfts --name mywiki \
                           --user wiki  \
                           --pass wiki  \


Takes three arguments:

=over 4

=item name

The database name.

=item user

The user that connects to the database. It must have permission
to create and drop tables in the database.

=item pass

The user's database password.


=head1 AUTHOR

Kake Pugh (kake@earth.li).


     Copyright (C) 2002 Kake Pugh.  All Rights Reserved.

This code is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 SEE ALSO

L<Wiki::Toolkit>, L<Wiki::Toolkit::Setup::DBIxFTSMySQL>