mig-bin/mig-quick

   1 #!/usr/bin/perl -w
   2 ###############################################################################
   3 =pod
   4
   5 =head1 NAME
   6
   7 mig-quick
   8
   9 A wrapper for running the following mig commands on the specified files:
  10
  11 =over 15
  12
  13 mig add
  14 mig skip-iconv
  15 mig clean
  16 mig convert
  17 mig stage
  18
  19 =back
  20
  21 =head1 SYNOPSIS
  22
  23 B<mig-quick> <file1> [<file2> ...]
  24
  25 =cut
  26
  27 ###############################################################################
  28
  29 use strict;
  30 use Pod::Usage;
  31 use Cwd 'abs_path';
  32 use FindBin;
  33 my $mig_bin = "$FindBin::Bin/";
  34 use lib "$FindBin::Bin/";
  35 use Mig;
  36
  37 foreach my $file (@ARGV) {
  38     foreach my $cmd (('add','skip-iconv','clean','convert','stage')) {
  39         print "mig $cmd $file\n";
  40         my @MYARGV = (
  41              'mig'
  42             ,$cmd
  43             ,$file
  44         );
  45         print "rc = " . system(@MYARGV) . "\n";
  46     }
  47 }
  48
  49 exit 0;
  50