Mig::die_if_no_env_migschema();
standard_invocation(@ARGV);
}
+ case "quick" {
+ Mig::die_if_no_env_migschema();
+ standard_invocation(@ARGV);
+ }
case "add" {
Mig::die_if_no_env_migschema();
standard_invocation(@ARGV);
--- /dev/null
+#!/usr/bin/perl -w
+###############################################################################
+=pod
+
+=head1 NAME
+
+mig-quick
+
+A wrapper for running the following mig commands on the specified files:
+
+=over 15
+
+mig add
+mig skip-iconv
+mig clean
+mig convert
+mig stage
+
+=back
+
+=head1 SYNOPSIS
+
+B<mig-quick> <file1> [<file2> ...]
+
+=cut
+
+###############################################################################
+
+use strict;
+use Pod::Usage;
+use Cwd 'abs_path';
+use FindBin;
+my $mig_bin = "$FindBin::Bin/";
+use lib "$FindBin::Bin/";
+use Mig;
+
+foreach my $file (@ARGV) {
+ foreach my $cmd (('add','skip-iconv','clean','convert','stage')) {
+ print "mig $cmd $file\n";
+ my @MYARGV = (
+ 'mig'
+ ,$cmd
+ ,$file
+ );
+ print "rc = " . system(@MYARGV) . "\n";
+ }
+}
+
+exit 0;
+