90 lines
2.9 KiB
Perl
Executable File
90 lines
2.9 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 Carp;
|
|
use GenTest;
|
|
use GenTest::Constants;
|
|
use GenTest::App::Gendata;
|
|
use Getopt::Long;
|
|
|
|
my ($spec_file, $config_file, $debug, $engine, $help, $dsn, $rows, $varchar_len,
|
|
$views, $server_id, $seed);
|
|
|
|
my $opt_result = GetOptions(
|
|
'help' => \$help,
|
|
'config:s' => \$config_file, ## Kept for backward compatability.
|
|
'spec:s' => \$spec_file,
|
|
'debug' => \$debug,
|
|
'dsn:s' => \$dsn,
|
|
'seed=s' => \$seed,
|
|
'engine:s' => \$engine,
|
|
'rows=i' => \$rows,
|
|
'views' => \$views,
|
|
'varchar-length=i' => \$varchar_len,
|
|
'server-id=i' > \$server_id
|
|
);
|
|
|
|
if (defined $config_file) {
|
|
carp("--config is deprecated. Use --spec");
|
|
$spec_file = $config_file if not defined $spec_file;
|
|
}
|
|
|
|
help() if !$opt_result || $help || not defined $spec_file;
|
|
|
|
exit(1) if !$opt_result;
|
|
|
|
|
|
my $app = GenTest::App::Gendata->new(spec_file => $spec_file,
|
|
debug => $debug,
|
|
dsn => $dsn,
|
|
seed => $seed,
|
|
engine => $engine,
|
|
rows => $rows,
|
|
views => $views,
|
|
varchar_length => $varchar_len,
|
|
server_id => $server_id);
|
|
|
|
|
|
my $status = $app->run();
|
|
|
|
exit $status;
|
|
|
|
sub help {
|
|
|
|
print <<EOF
|
|
$0 - Random Data Generator. Options:
|
|
|
|
--debug : Turn on debugging for additional output
|
|
--dsn : DBI resource to connect to
|
|
--engine : Table engine to use when creating tables with gendata (default: no ENGINE for CREATE TABLE)
|
|
--spec : Specification ZZ file describing the data (see RandomDataGenerator in MySQL Wiki)
|
|
--rows : Number of rows to generate for each table, unless specified in the ZZ file
|
|
--seed : Seed to PRNG. if --seed=time the current time will be used. (default 1)
|
|
--views : Generate views
|
|
--varchar-length: maximum length of strings (deault 1)
|
|
--help : This help message
|
|
EOF
|
|
;
|
|
exit(1);
|
|
}
|