mig-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 psql command.  At some point the plan is to shove mig-tracked variables into psql sessions.
  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 PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA
  23     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 Mig;
  32
  33 pod2usage(-verbose => 2) if defined $ARGV[0] && $ARGV[0] eq '--help';
  34
  35 system(
  36     'psql',
  37     # TODO inject mig-tracked variables here
  38     @ARGV
  39 );
  40
  41 exit 0;
  42