From 46fc3a8b4febe89d010af80059fa718eb6d835d8 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Sun, 25 Feb 2018 18:02:16 -0500
Subject: [PATCH] mig-quick for doing the add/skip-iconv/clean/convert/stage dance without any arguments (for now)

---
 mig               |    4 ++++
 mig-bin/mig-quick |   50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 54 insertions(+), 0 deletions(-)
 create mode 100755 mig-bin/mig-quick

diff --git a/mig b/mig
index 83ab565..ea11e6f 100755
--- 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
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;
+
-- 
1.7.2.5