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 my @MYARGV = (
  35      'psql'
  36     ,'options=--search_path=' . $MIGSCHEMA . ',public,evergreen,pg_catalog'
  37     ,'-vmigschema=' . $MIGSCHEMA
  38 );
  39 if (defined $BIBSTART) {
  40     push @MYARGV, '-vbibstart=' . $BIBSTART;
  41 }
  42 # TODO inject more mig-tracked variables here
  43
  44 system(@MYARGV, @ARGV);
  45
  46 exit 0;
  47