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     BIBSTART
  25 );
  26 use Pod::Usage;
  27 use DBI;
  28 use Cwd 'abs_path';
  29 use FindBin;
  30 my $mig_bin = "$FindBin::Bin/";
  31 use lib "$FindBin::Bin/";
  32 use Mig;
  33
  34 pod2usage(-verbose => 2) if defined $ARGV[0] && $ARGV[0] eq '--help';
  35
  36 my @MYARGV = (
  37      'psql'
  38     ,'-vmigschema=' . $MIGSCHEMA
  39 );
  40 if (defined $BIBSTART) {
  41     push @MYARGV, '-vbibstart=' . $BIBSTART;
  42 }
  43 # TODO inject more mig-tracked variables here
  44
  45 system(@MYARGV, @ARGV);
  46
  47 exit 0;
  48