~drizzle-trunk/drizzle/development

#!/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);

}