X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fsqlt;h=26081679dd24d1f0eaa6dba898d8e46ad3e067e3;hb=5342f5c1a47ee390b226bf3d9b57cdfb8c803b63;hp=8e6ae19c321a3ac562c752339d6da6969966e3f5;hpb=3658d749c584cd758d26c7a30f26706f5619661c;p=dbsrgits%2FSQL-Translator.git diff --git a/bin/sqlt b/bin/sqlt index 8e6ae19..2608167 100755 --- a/bin/sqlt +++ b/bin/sqlt @@ -2,7 +2,7 @@ # vim: set ft=perl: # ------------------------------------------------------------------- -# $Id: sqlt,v 1.16 2004-11-25 23:15:23 grommit Exp $ +# $Id: sqlt,v 1.22 2007-03-21 15:21:31 duality72 Exp $ # ------------------------------------------------------------------- # Copyright (C) 2002-4 SQLFairy Authors # @@ -53,6 +53,7 @@ To translate a schema: DBI Parser Options: --dsn DSN for connecting to database + (see also --use-same-auth below) --db-user Database user --db-password Database password @@ -63,11 +64,29 @@ To translate a schema: --no-trim Don't trim whitespace on fields --no-scan Don't scan fields for data types and sizes + MySQL Parser Options: + + --mysql-parser-version Target MySQL parser version for dealing with + /*! comments; default = 30000 + + General Producer Options + + --producer-db-user Database user for producer + --producer-db-pass Database password for producer + --producer-dsn DSN for producer + --use-same-auth Use these DSN, user, password for producer output + DB Producer Options: --add-drop-table Add 'DROP TABLE' statements before creates + --quote-table-names Quote all table names in statements + --quote-field-names Qjuote all field names in statements --no-comments Don't include comments in SQL output + PostgreSQL Producer Options: + + --postgres-version PostgreSQL server version + Diagram Producer Options: --imap-file Filename to put image map data @@ -77,9 +96,6 @@ To translate a schema: --skip Comma-separated list of tables to skip --skiplike Regex for tables to skip - --dumper-db-user Database user for dumper script - --dumper-db-pass Database password for dumper script - --dumper-dsn DSN for dumper script --add-truncate Add "TRUNCATE TABLE" statements for each table HTML/POD Producer Options: @@ -89,8 +105,9 @@ To translate a schema: TTSchema Producer Options: - --template The path to the template - --tt-var var=value Pass extra variables to the template + --template The path to the template + --tt-var var=value Pass extra variables to the template + --tt-conf option=value Pass extra config options to Template XML-SQLFairy Producer Options: @@ -99,6 +116,10 @@ To translate a schema: --no-newlines Write the XML as a single line. --indent= Use characters of whitespace to indent the XML. + ClassDBI Producer Options: + + --package Base package name for Class::DBI modules. + =head1 DESCRIPTION This script is part of the SQL Fairy project. It will try to convert @@ -124,7 +145,7 @@ use Pod::Usage; use SQL::Translator; use vars qw( $VERSION ); -$VERSION = sprintf "%d.%02d", q$Revision: 1.16 $ =~ /(\d+)\.(\d+)/; +$VERSION = sprintf "%d.%02d", q$Revision: 1.22 $ =~ /(\d+)\.(\d+)/; my $from; # the original database my $to; # the destination database @@ -132,7 +153,9 @@ my $help; # show POD and bail my $stdin; # whether to read STDIN for create script my $no_comments; # whether to put comments in out file my $show_warnings; # whether to show warnings from SQL::Translator -my $add_drop_table; # whether to show warnings from SQL::Translator +my $add_drop_table; # whether to add "DROP table" statements +my $quote_table_names; # whether to quote table names +my $quote_field_names; # whether to quote field names my $debug; # whether to print debug info my $trace; # whether to print parser trace my $list; # list all parsers and producers @@ -146,24 +169,31 @@ my $imap_url; # URL to use in making image map my $pretty; # use CGI::Pretty instead of CGI (HTML producer) my $template; # template to pass to TTSchema producer my %tt_vars; # additional template vars to pass the TTSchema producer +my %tt_conf; # additional template conf to pass the TTSchema producer my $title; # title for HTML/POD producer my $add_prefix; # Use explicit namespace prefix (XML producer) my $prefix; # Set explicit namespace prefix (XML producer) my $newlines; # Add newlines around tags (XML producer) my $indent; # Number of indent chars for XML +my $package_name; # Base class name for ClassDBI +my $use_same_auth =0; # producer uses same DSN, user, password as parser my $dsn; # DBI parser my $db_user; # DBI parser my $db_password; # DBI parser my $show_version; # Show version and exit script my $skip; my $skiplike; -my $dumper_db_user; -my $dumper_db_pass; -my $dumper_dsn; +my $producer_db_user; # DSN for producer (e.g. Dumper, ClassDBI) +my $producer_db_password; # db_pass " +my $producer_dsn; # db_user " my $add_truncate; +my $mysql_parser_version; # MySQL parser arg for /*! comments +my $postgres_version; # PostgreSQL version GetOptions( 'add-drop-table' => \$add_drop_table, + 'quote_table_names' => \$quote_table_names, + 'quote_field_names' => \$quote_field_names, 'd|debug' => \$debug, 'f|from|parser:s' => \$from, 'fs:s' => \$field_separator, @@ -180,15 +210,16 @@ GetOptions( 'show-warnings' => \$show_warnings, 'template:s' => \$template, 'tt-var=s' => \%tt_vars, + 'tt-conf=s' => \%tt_conf, 'title:s' => \$title, 'trace' => \$trace, 'v|validate' => \$validate, 'dsn:s' => \$dsn, 'db-user:s' => \$db_user, 'db-password:s' => \$db_password, - 'dumper-dsn:s' => \$dumper_dsn, - 'dumper-db-user:s' => \$dumper_db_user, - 'dumper-db-pass:s' => \$dumper_db_pass, + 'producer-dsn:s' => \$producer_dsn, + 'producer-db-user:s'=> \$producer_db_user, + 'producer-db-pass:s'=> \$producer_db_password, 'skip:s' => \$skip, 'skiplike:s' => \$skiplike, 'add_truncate' => \$add_truncate, @@ -196,9 +227,20 @@ GetOptions( 'prefix:s' => \$prefix, 'indent:s' => \$indent, 'newlines!' => \$newlines, + 'package=s' => \$package_name, + 'use-same-auth' => \$use_same_auth, 'version' => \$show_version, + 'mysql-parser-version=i' => \$mysql_parser_version, + 'postgres-version=f' => \$postgres_version, ) or pod2usage(2); +if ($use_same_auth) { + $producer_dsn = $dsn; + $producer_db_user = $db_user; + $producer_db_password = $db_password; +} + +$from = 'DBI' if !defined $from && defined $dsn; my @files = @ARGV; # source files unless ( @files ) { if ( defined($from) && $from eq 'DBI' ) { @@ -222,6 +264,8 @@ my $translator = SQL::Translator->new( no_comments => $no_comments || 0, show_warnings => $show_warnings || 0, add_drop_table => $add_drop_table || 0, + quote_table_names => $quote_table_names || 1, + quote_field_names => $quote_field_names || 1, validate => $validate || 0, parser_args => { trim_fields => $no_trim ? 0 : 1, @@ -231,6 +275,7 @@ my $translator = SQL::Translator->new( dsn => $dsn, db_user => $db_user, db_password => $db_password, + mysql_parser_version => $mysql_parser_version, }, producer_args => { imap_file => $imap_file, @@ -238,10 +283,11 @@ my $translator = SQL::Translator->new( pretty => $pretty, ttfile => $template, tt_vars => \%tt_vars, + tt_conf => \%tt_conf, title => $title, - dsn => $dumper_dsn, - db_user => $dumper_db_user, - db_password => $dumper_db_pass, + dsn => $producer_dsn, + db_user => $producer_db_user, + db_password => $producer_db_password, skip => $skip, skiplike => $skiplike, add_truncate => $add_truncate, @@ -249,6 +295,8 @@ my $translator = SQL::Translator->new( prefix => $prefix, indent => $indent, newlines => $newlines, + postgres_version => $postgres_version, + package_name => $package_name, }, ); @@ -295,7 +343,7 @@ for my $file (@files) { =head1 AUTHOR -Ken Y. Clark Ekclark@cpan.orgE, +Ken Youens-Clark Ekclark@cpan.orgE, darren chamberlain Edarren@cpan.orgE. =head1 SEE ALSO