use Env qw(
HOME PGHOST PGPORT PGUSER PGDATABASE MIGSCHEMA
MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
+ BIBSTART
);
use Pod::Usage;
use DBI;
use lib "$FindBin::Bin/";
use Mig;
-pod2usage(-verbose => 2) if defined $ARGV[0] && $ARGV[0] eq '--help';
-
-system(
- 'psql',
- # TODO inject mig-tracked variables here
- @ARGV
+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;