X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fsql_translator.pl;h=b0dd68195b752161c7e2b9b84e26d188e6b48f19;hb=550022e517e34500a58896ab7fb952a80b344bd5;hp=34d89c874823ec0475c6c336a59920541e33c6df;hpb=49e1eb709441c5d265257c6da78f5de83d0a6114;p=dbsrgits%2FSQL-Translator.git

diff --git a/bin/sql_translator.pl b/bin/sql_translator.pl
index 34d89c8..b0dd681 100755
--- a/bin/sql_translator.pl
+++ b/bin/sql_translator.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # -------------------------------------------------------------------
-# $Id: sql_translator.pl,v 1.4 2002-11-20 04:03:02 kycl4rk Exp $
+# $Id: sql_translator.pl,v 1.6 2002-11-26 03:59:57 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002 Ken Y. Clark <kycl4rk@users.sourceforge.net>,
 #                    darren chamberlain <darren@cpan.org>
@@ -29,35 +29,79 @@ use SQL::Translator;
 use Data::Dumper;
 
 use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
-
-my $from;        # the original database
-my $to;          # the destination database 
-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 $verbose;     # whether to print progress/debug
+$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
+
+my $from;           # the original database
+my $to;             # the destination database 
+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 $xlate;          # user overrides for field translation
+my $debug;          # whether to print debug info
+my $trace;          # whether to print parser trace
+my $list;           # list all parsers and producers
 
 #
 # Get options, explain how to use the script if necessary.
 #
 GetOptions(
-    'f|from|parser=s' => \$from,
-    't|to|producer=s' => \$to,
+    'f|from|parser:s' => \$from,
+    't|to|producer:s' => \$to,
     'h|help'          => \$help,
-    'v|verbose'       => \$verbose,
-    'no_comments'     => \$no_comments,
+    'l|list'          => \$list,
+    'd|debug'         => \$debug,
+    'trace'           => \$trace,
+    'no-comments'     => \$no_comments,
+    'show-warnings'   => \$show_warnings,
+    'add-drop-table'  => \$add_drop_table,
+    'xlate=s'         => \$xlate,
 ) or pod2usage(2);
 
-my @files = @ARGV; # the create script for the original db
+my @files = @ARGV; # the create script(s) for the original db
 
 pod2usage(1) if $help;
-pod2usage(2) unless $from && $to && @files;
+
+if ( $xlate ) {
+    my @fields = split /,/, $xlate;
+    $xlate     = {}; 
+    for my $field ( @fields ) {
+        my ( $from, $to ) = split(/\//, $field);
+        $xlate->{$from} = $to;
+    }
+}
 
 #
 # If everything is OK, translate file(s).
 #
-my $translator = SQL::Translator->new( debug => $verbose );
+my $translator     =  SQL::Translator->new( 
+    xlate          => $xlate          || {},
+    debug          => $debug          ||  0,
+    trace          => $trace          ||  0,
+    no_comments    => $no_comments    ||  0,
+    show_warnings  => $show_warnings  ||  0,
+    add_drop_table => $add_drop_table ||  0,
+);
+
+if ( $list ) {
+    my @parsers   = $translator->list_parsers;
+    my @producers = $translator->list_producers;
+
+    for ( @parsers, @producers ) {
+        if ( $_ =~ m/.+::(\w+)\.pm/ ) {
+            $_ = $1;
+        }
+    }
+    
+    print "\nParsers:\n",   map { "\t$_\n" } sort @parsers;
+    print "\nProducers:\n", map { "\t$_\n" } sort @producers;
+    print "\n";
+    exit(0);
+}
+
+pod2usage(2) unless $from && $to && @files;
+
 $translator->parser($from);
 $translator->producer($to);
 
@@ -65,7 +109,6 @@ for my $file (@files) {
     my $output = $translator->translate( $file ) or die
         "Error: " . $translator->error;
     print $output;
-    warn "parser = ", Dumper( $translator->parser );
 }
 
 # ----------------------------------------------------
@@ -79,27 +122,50 @@ sql_translator.pl - convert an SQL database schema
 
 =head1 SYNOPSIS
 
+For help:
+
   ./sql_translator.pl -h|--help
 
-  ./sql_translator.pl -f|--from MySQL -t|--to Oracle [options] file
+For a list of all parsers and producers: 
+
+  ./sql_translator.pl -l|--list
+
+To translate a schema:
+
+  ./sql_translator.pl 
+        -f|--from|--parser MySQL 
+        -t|--to|--producer Oracle 
+        [options] 
+        file
 
   Options:
 
-    -v|--verbose   Print debug info to STDERR
-    --no-comments  Don't include comments in SQL output
+    -d|--debug                Print debug info
+    --trace                   Print parser trace info
+    --no-comments             Don't include comments in SQL output
+    --show-warnings           Print to STDERR warnings of conflicts, etc.
+    --add-drop-table          Add 'drop table' statements before creates
+    --xlate=foo/bar,baz/blech Overrides for field translation
 
 =head1 DESCRIPTION
 
-Part of the SQL Fairy project (sqlfairy.sourceforge.net), this script
-will try to convert any database syntax for which it has a grammar
-into some other format it knows about.
+This script is part of the SQL Fairy project
+(http://sqlfairy.sourceforge.net/).  It will try to convert any
+database syntax for which it has a grammar into some other format it
+knows about.
+
+If using "show-warnings," be sure to redirect STDERR to a separate file.  
+In bash, you could do this:
+
+    $ sql_translator.pl -f MySQL -t PostgreSQL --show-warnings file.sql \
+       1>out 2>err
 
 =head1 AUTHOR
 
-Ken Y. Clark, E<lt>kclark@logsoft.comE<gt>
+Ken Y. Clark E<lt>kclark@cpan.orgE<gt>
 
 =head1 SEE ALSO
 
-perl(1), SQL::Translator.
+SQL::Translator.
 
 =cut