68 lines
1.8 KiB
Perl
Executable File
68 lines
1.8 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Copyright (C) 2008-2009 Sun Microsystems, Inc. All rights reserved.
|
|
# Use is subject to license terms.
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; version 2 of the License.
|
|
#
|
|
# This program is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
|
|
# USA
|
|
|
|
$| = 1;
|
|
use strict;
|
|
use lib 'lib';
|
|
use lib "$ENV{RQG_HOME}/lib";
|
|
use DBI;
|
|
use Getopt::Long;
|
|
use GenTest;
|
|
use GenTest::Constants;
|
|
use GenTest::App::GendataSimple;
|
|
|
|
my ($dsn, $engine, $help, $views);
|
|
|
|
my @ARGV_saved = @ARGV;
|
|
|
|
my $opt_result = GetOptions(
|
|
'dsn=s' => \$dsn,
|
|
'engine:s' => \$engine,
|
|
'help' => \$help,
|
|
'views' => \$views
|
|
);
|
|
|
|
my $default_dsn = GenTest::App::GendataSimple->defaultDsn();
|
|
|
|
help() if !$opt_result || $help;
|
|
|
|
my $app = GenTest::App::GendataSimple->new(dsn => $dsn,
|
|
engine => $engine,
|
|
views => $views);
|
|
|
|
say("Starting \n# $0 \\ \n# ".join(" \\ \n# ", @ARGV_saved));
|
|
|
|
my $status = $app->run();
|
|
|
|
exit $status;
|
|
|
|
sub help {
|
|
print <<EOF
|
|
$0 - Simple data generator. Options:
|
|
|
|
--dsn : MySQL DBI resource to connect to (default $default_dsn)
|
|
--engine : Table engine to use when creating tables (default: no ENGINE in CREATE TABLE )
|
|
--views : Generate views
|
|
--help : This help message
|
|
EOF
|
|
;
|
|
safe_exit(1);
|
|
}
|
|
|