X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=mig-bin%2Fmig-sql;fp=mig-bin%2Fmig-sql;h=0000000000000000000000000000000000000000;hp=3909ab31b525353fc35de19bea7b82ed69894fce;hb=155eb9eac077ca803f75d1295e584e7012e1b883;hpb=69588457ab8f70fbb77af29cc0653933d24ed2ac diff --git a/mig-bin/mig-sql b/mig-bin/mig-sql deleted file mode 100755 index 3909ab3..0000000 --- a/mig-bin/mig-sql +++ /dev/null @@ -1,48 +0,0 @@ -#!/usr/bin/perl -w -############################################################################### -=pod - -=head1 NAME - -mig-sql - -A wrapper around the psql command. At some point the plan is to shove mig-tracked variables into psql sessions. - -=head1 SYNOPSIS - -B [arguments...] - -=cut - -############################################################################### - -use strict; -use Switch; -use Env qw( - HOME PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA - MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR - BIBSTART -); -use Pod::Usage; -use DBI; -use Cwd 'abs_path'; -use FindBin; -my $mig_bin = "$FindBin::Bin/"; -use lib "$FindBin::Bin/"; -use Mig; - -my @MYARGV = ( - 'psql' - ,'-vmigschema=' . $MIGSCHEMA - ,'-vmigschema_text=\'' . $MIGSCHEMA . '\'' - ,'-F ' . "\t" -); -if (defined $BIBSTART) { - push @MYARGV, '-vbibstart=' . $BIBSTART; -} -# TODO inject more mig-tracked variables here - -system(@MYARGV, @ARGV); - -exit 0; -