Added "show_warnings" and "add_drop_table" options to sql_translator.pl and

[dbsrgits/SQL-Translator.git] / bin / sql_translator.pl

diff --git a/bin/sql_translator.pl b/bin/sql_translator.pl
index 2465737..b0dd681 100755 (executable)
--- a/bin/sql_translator.pl
+++ b/bin/sql_translator.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 # -------------------------------------------------------------------
-# $Id: sql_translator.pl,v 1.5 2002-11-22 03:03:40 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,17 +29,19 @@ use SQL::Translator;
 use Data::Dumper;
 
 use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\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 $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
+$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.
@@ -52,6 +54,8 @@ GetOptions(
     '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);
 
@@ -71,11 +75,13 @@ if ( $xlate ) {
 #
 # If everything is OK, translate file(s).
 #
-my $translator  =  SQL::Translator->new( 
-    xlate       => $xlate || {},
-    debug       => $debug,
-    trace       => $trace,
-    no_comments => $no_comments,
+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 ) {
@@ -137,6 +143,8 @@ To translate a schema:
     -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
@@ -146,6 +154,12 @@ This script is part of the SQL Fairy project
 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@cpan.orgE<gt>