#!/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
    ,'--local-infile'
    ,"--init-command=set \@migschema = \"$MIGSCHEMA\";"
    ,$MYSQL_DATABASE
);

system(@MYARGV, @ARGV);

exit 0;