#!/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
=head1 SYNOPSIS
user-setup-mysql-dbixfts --name mywiki \
--user wiki \
--pass wiki \
=head1 DESCRIPTION
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.
=back
=head1 AUTHOR
Kake Pugh (kake@earth.li).
=head1 COPYRIGHT
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>
=cut
1;