From: Darren Chamberlain <dlc@sevenroot.org>
Date: Fri, 3 Oct 2003 21:15:55 +0000 (+0000)
Subject: Command-line wrapper for SQL::Translator::Shell.
X-Git-Tag: v0.04~139
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e036224a25ced4fa59b1d9c65d31e770efec750f;p=dbsrgits%2FSQL-Translator.git

Command-line wrapper for SQL::Translator::Shell.
---

diff --git a/bin/sqltsh b/bin/sqltsh
new file mode 100644
index 0000000..158af38
--- /dev/null
+++ b/bin/sqltsh
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Getopt::Long;
+use SQL::Translator::Shell;
+
+my %options = (HISTFILE => glob("~/.sqltsh_history"));
+GetOptions('H=s' => \$options{HISTFILE});
+
+my $sqltsh = SQL::Translator::Shell->new(%options);
+
+$sqltsh->run();