kmig.d/bin/mig-sql

   1 #!/usr/bin/perl -w
   2 ###############################################################################
   3 =pod
   4
   5 =head1 NAME
   6
   7 mig-sql
   8
   9 A wrapper around the mysql client.
  10
  11 =head1 SYNOPSIS
  12
  13 B<mig-sql> [arguments...]
  14
  15 =cut
  16
  17 ###############################################################################
  18
  19 use strict;
  20 use Switch;
  21 use Env qw(
  22     HOME MYSQL_HOST MYSQL_TCP_PORT MYSQL_USER MYSQL_DATABASE MYSQL_PW
  23     MIGSCHEMA MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
  24 );
  25 use Pod::Usage;
  26 use DBI;
  27 use Cwd 'abs_path';
  28 use FindBin;
  29 my $mig_bin = "$FindBin::Bin/";
  30 use lib "$FindBin::Bin/";
  31 use KMig;
  32
  33 my @MYARGV = (
  34      'mysql'
  35     ,'--host=' . $MYSQL_HOST
  36     ,'--port=' . $MYSQL_TCP_PORT
  37     ,'--user=' . $MYSQL_USER
  38     ,'--password=' . $MYSQL_PW
  39     ,'--local-infile'
  40     ,"--init-command=set \@migschema = \"$MIGSCHEMA\";"
  41     ,$MYSQL_DATABASE
  42 );
  43
  44 system(@MYARGV, @ARGV);
  45
  46 exit 0;
  47