mig

   1 #!/usr/bin/perl -w
   2 ###############################################################################
   3 =pod
   4
   5 =head1 NAME
   6
   7 mig - git-like program for tracking and manipulating legacy data files for
   8 migrations.  This is a smart wrapper around emig and kmig (for Evergreen and
   9 Koha migrations, respectively).  It'll fail if the MIGCMD environment variable
  10 is not set.  Environments created through kmig env and emig env should set
  11 MIGCMD accordingly.
  12
  13 =cut
  14
  15 ###############################################################################
  16
  17 use strict;
  18 use Env qw(
  19     MIGCMD
  20 );
  21 use Pod::Usage;
  22
  23 pod2usage(-verbose => 2) if ! $ARGV[0];
  24 if ($MIGCMD) {
  25     system($MIGCMD,@ARGV);
  26 } else {
  27     die "Please use emig/kmig to load an environment.";
  28 }
  29