added credit for dave cash

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

diff --git a/bin/sqlt b/bin/sqlt
index 6b001f1..e42f5a6 100755 (executable)
--- a/bin/sqlt
+++ b/bin/sqlt
@@ -1,7 +1,8 @@
 #!/usr/bin/perl -w
+# vim: set ft=perl:
 
 # -------------------------------------------------------------------
-# $Id: sqlt,v 1.2 2003-08-26 03:54:59 kycl4rk Exp $
+# $Id: sqlt,v 1.10 2003-10-19 17:01:25 grommit Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002 Ken Y. Clark <kclar@cpan.org>,
 #                    darren chamberlain <darren@cpan.org>
@@ -49,6 +50,12 @@ To translate a schema:
     --trace            Print parser trace info
     --show-warnings    Print warnings to STDERR
 
+  DBI Parser Options:
+
+    --dsn              DSN for connecting to database
+    --db-user          Database user
+    --db-password      Database password              
+
   xSV Parser Options:
 
     --fs               The field separator
@@ -68,7 +75,7 @@ To translate a schema:
 
   HTML/POD Producer Options:
 
-    --pretty           Use CGI::Pretty for the outpu
+    --pretty           Use CGI::Pretty for the output
     --title            Title of schema
 
   TTSchema Producer Options:
@@ -106,7 +113,7 @@ use Pod::Usage;
 use SQL::Translator;
 
 use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/;
 
 my $from;             # the original database
 my $to;               # the destination database 
@@ -130,12 +137,15 @@ my $template;         # template to pass to TTSchema producer
 my $title;            # title for HTML/POD producer
 my $emit_empty_tags;  # show empty XML tags
 my $attrib_values;    # use XML attributes instead of tags
+my $dsn;              # DBI parser 
+my $db_user;          # DBI parser 
+my $db_password;      # DBI parser 
 
 GetOptions(
     'add-drop-table'  => \$add_drop_table,
     'attrib-values'   => \$attrib_values,
     'd|debug'         => \$debug,
-    'emit_empty_tags' => \$emit_empty_tags,
+    'emit-empty-tags' => \$emit_empty_tags,
     'f|from|parser:s' => \$from,
     'fs:s'            => \$field_separator,
     'h|help'          => \$help,
@@ -153,9 +163,20 @@ GetOptions(
     'title:s'         => \$title,
     'trace'           => \$trace,
     'v|validate'      => \$validate,
+    'dsn:s'           => \$dsn,
+    'db-user:s'       => \$db_user,
+    'db-password:s'   => \$db_password,
 ) or pod2usage(2);
 
 my @files = @ARGV; # source files
+unless ( @files ) {
+    if ( $from eq 'DBI' ) {
+        @files = ('!');
+    }
+    else {
+        @files = ('-');
+    }
+}
 
 pod2usage(1) if $help;
 
@@ -171,6 +192,9 @@ my $translator           =  SQL::Translator->new(
         scan_fields      => $no_scan ? 0 : 1,
         field_separator  => $field_separator,
         record_separator => $record_separator,
+        dsn              => $dsn,
+        db_user          => $db_user,
+        db_password      => $db_password,
     },
     producer_args   => {
         imap_file        => $imap_file,
@@ -199,14 +223,21 @@ if ( $list ) {
     exit(0);
 }
 
-pod2usage(2) unless $from && $to && @files;
+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;
 }
 
@@ -219,11 +250,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