let's not name these differently than the emig.d/ counterparts

[migration-tools.git] / kmig.d / bin / mig-sql

diff --git a/kmig.d/bin/mig-sql b/kmig.d/bin/mig-sql
new file mode 100755 (executable)
index 0000000..993826b
--- /dev/null
+++ b/kmig.d/bin/mig-sql
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+###############################################################################
+=pod
+
+=head1 NAME
+
+mig-sql 
+
+A wrapper around the mysql client.
+
+=head1 SYNOPSIS
+
+B<mig-sql> [arguments...]
+
+=cut
+
+###############################################################################
+
+use strict;
+use Switch;
+use Env qw(
+    HOME MYSQL_HOST MYSQL_TCP_PORT MYSQL_USER MYSQL_DATABASE MYSQL_PW
+    MIGSCHEMA MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
+);
+use Pod::Usage;
+use DBI;
+use Cwd 'abs_path';
+use FindBin;
+my $mig_bin = "$FindBin::Bin/";
+use lib "$FindBin::Bin/";
+use KMig;
+
+my @MYARGV = (
+     'mysql'
+    ,'--host=' . $MYSQL_HOST
+    ,'--port=' . $MYSQL_TCP_PORT
+    ,'--user=' . $MYSQL_USER
+    ,'--password=' . $MYSQL_PW
+    ,"--init-command=set \@migschema = \"$MIGSCHEMA\";"
+    ,$MYSQL_DATABASE
+);
+
+system(@MYARGV, @ARGV);
+
+exit 0;
+