mig-quick for doing the add/skip-iconv/clean/convert/stage dance without any argument...

diff --git a/mig b/mig
index 83ab565..ea11e6f 100755 (executable)
--- a/mig
+++ b/mig
@@ -306,6 +306,10 @@ switch($ARGV[0]) {
         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);

diff --git a/mig-bin/mig-quick b/mig-bin/mig-quick
new file mode 100755 (executable)
index 0000000..413724c
--- /dev/null
+++ b/mig-bin/mig-quick
@@ -0,0 +1,50 @@
+#!/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;
+