=head1 NAME 

xgettextdbi - Fetch values for translation from a database

=head1 SYNOPSIS

    % xgettextdbi [OPTIONS]
    
    INPUT OPTIONS:
    --dsn      the database DSN
    --username your username
    --password your password
    --query    the SQL query to select the column you would like translated
    
    OUTPUT OPTIONS:
    -d, --default-domain Use $NAME.po for output, instead of messages.po
    -o, --output         PO file name to be written or incrementally
                         updated (use "-" for STDOUT)
    -p, --output-dir     Output files will be placed in this directory

=head1 DESCRIPTION

Grabs values from a database;

=cut

use strict;
use warnings;

use Locale::Maketext::Extract::DBI;
use Getopt::Long;
use Pod::Usage;

our $VERSION = '0.01';

my %options;

GetOptions( \%options, qw( dsn=s username=s password=s query=s help=s p|output-dir=s o|output=s d|default-domain=s ) );

pod2usage( 1 ) && exit if exists $options{ help } or !keys %options;

my $extractor = Locale::Maketext::Extract::DBI->new;
$extractor->extract( %options );

=head1 AUTHOR

=over 4 

=item * Brian Cassidy E<lt>bricas@cpan.orgE<gt>

=back

=head1 COPYRIGHT AND LICENSE

Copyright 2006 by Brian Cassidy

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

=head1 SEE ALSO

=over 4 

=item * L<xgettext>

=back

=cut