Added options for new Dumper producer.

[dbsrgits/SQL-Translator.git] / bin / sqlt

diff --git a/bin/sqlt b/bin/sqlt
index 9f7182c..3d928ce 100755 (executable)
--- a/bin/sqlt
+++ b/bin/sqlt
@@ -2,10 +2,9 @@
 # vim: set ft=perl:
 
 # -------------------------------------------------------------------
-# $Id: sqlt,v 1.5 2003-10-04 01:22:46 kycl4rk Exp $
+# $Id: sqlt,v 1.13 2004-03-09 19:11:30 kycl4rk Exp $
 # -------------------------------------------------------------------
-# Copyright (C) 2002 Ken Y. Clark <kclar@cpan.org>,
-#                    darren chamberlain <darren@cpan.org>
+# Copyright (C) 2002-4 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License as
@@ -73,6 +72,15 @@ To translate a schema:
     --imap-file        Filename to put image map data
     --imap-url         URL to use for image map
 
+  Dumper Producer Options:
+
+    --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:
 
     --pretty           Use CGI::Pretty for the output
@@ -113,7 +121,7 @@ use Pod::Usage;
 use SQL::Translator;
 
 use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.13 $ =~ /(\d+)\.(\d+)/;
 
 my $from;             # the original database
 my $to;               # the destination database 
@@ -140,35 +148,55 @@ my $attrib_values;    # use XML attributes instead of tags
 my $dsn;              # DBI parser 
 my $db_user;          # DBI parser 
 my $db_password;      # DBI parser 
+my $skip;             
+my $skiplike;        
+my $dumper_db_user; 
+my $dumper_db_pass;
+my $dumper_dsn;
+my $add_truncate;
 
 GetOptions(
-    'add-drop-table'  => \$add_drop_table,
-    'attrib-values'   => \$attrib_values,
-    'd|debug'         => \$debug,
-    'emit_empty_tags' => \$emit_empty_tags,
-    'f|from|parser:s' => \$from,
-    'fs:s'            => \$field_separator,
-    'h|help'          => \$help,
-    'imap-file:s'     => \$imap_file,
-    'imap-url:s'      => \$imap_url,
-    't|to|producer:s' => \$to,
-    'l|list'          => \$list,
-    'pretty!'         => \$pretty,
-    'no-comments'     => \$no_comments,
-    'no-scan'         => \$no_scan,
-    'no-trim'         => \$no_trim,
-    'rs:s'            => \$record_separator,
-    'show-warnings'   => \$show_warnings,
-    'template:s'      => \$template,
-    'title:s'         => \$title,
-    'trace'           => \$trace,
-    'v|validate'      => \$validate,
-    'dsn:s'           => \$dsn,
-    'db-user:s'       => \$db_user,
-    'db-password:s'   => \$db_password,
+    'add-drop-table'   => \$add_drop_table,
+    'attrib-values'    => \$attrib_values,
+    'd|debug'          => \$debug,
+    'emit-empty-tags'  => \$emit_empty_tags,
+    'f|from|parser:s'  => \$from,
+    'fs:s'             => \$field_separator,
+    'h|help'           => \$help,
+    'imap-file:s'      => \$imap_file,
+    'imap-url:s'       => \$imap_url,
+    't|to|producer:s'  => \$to,
+    'l|list'           => \$list,
+    'pretty!'          => \$pretty,
+    'no-comments'      => \$no_comments,
+    'no-scan'          => \$no_scan,
+    'no-trim'          => \$no_trim,
+    'rs:s'             => \$record_separator,
+    'show-warnings'    => \$show_warnings,
+    'template:s'       => \$template,
+    '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,
+    'skip:s'           => \$skip,
+    'skiplike:s'       => \$skiplike,
+    'add_truncate'     => \$add_truncate,
 ) or pod2usage(2);
 
 my @files = @ARGV; # source files
+unless ( @files ) {
+    if ( defined($from) && $from eq 'DBI' ) {
+        @files = ('!');
+    }
+    else {
+        @files = ('-');
+    }
+}
 
 pod2usage(1) if $help;
 
@@ -196,6 +224,12 @@ my $translator           =  SQL::Translator->new(
         title            => $title,
         emit_empty_tags  => $emit_empty_tags,
         attrib_values    => $attrib_values,
+        dsn              => $dumper_dsn,
+        db_user          => $dumper_db_user,
+        db_password      => $dumper_db_pass,
+        skip             => $skip,
+        skiplike         => $skiplike,
+        add_truncate     => $add_truncate,
     },
 );
 
@@ -215,14 +249,21 @@ if ( $list ) {
     exit(0);
 }
 
-pod2usage( msg => 'Please supply "from" and "to" arguments' ) unless $from && $to;
+pod2usage( msg => 'Please supply "from" and "to" arguments' ) 
+    unless $from && $to;
 
 $translator->parser($from);
 $translator->producer($to);
 
 for my $file (@files) {
-    my $output = $translator->translate(file => $file) or die
+    my @args = 
+        ($file eq '-') ? (data => \*STDIN) :
+        ($file eq '!') ? (data => '') :
+        (file => $file);
+
+    my $output = $translator->translate(@args) or die
         "Error: " . $translator->error;
+
     print $output;
 }
 
@@ -235,11 +276,11 @@ for my $file (@files) {
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Y. Clark E<lt>kclark@cpan.orgE<gt>,
+darren chamberlain E<lt>darren@cpan.orgE<gt>.
 
 =head1 SEE ALSO
 
-perl, SQL::Translator, Parse::RecDescent, 
-L<http://sqlfairy.sourceforge.net>.
+SQL::Translator, L<http://sqlfairy.sourceforge.net>.
 
 =cut