From: Jason Etheridge <jason@esilibrary.com>
Date: Wed, 24 Sep 2008 13:06:01 +0000 (+0000)
Subject: give us some options.. maybe someone else will GetOpt us
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=665536bcc7753ad320d1a3db12728265f058c6b9

give us some options.. maybe someone else will GetOpt us
---

diff --git a/make1per b/make1per
index 0fbc1f2..80c25c3 100755
--- a/make1per
+++ b/make1per
@@ -1,7 +1,10 @@
 #!/usr/bin/perl
 
-open IN, '<', 'incoming.renumbered.mrc.xml';
-open OUT,'>', 'incoming.renumbered.1per.xml';
+my $infile = $ARGV[0] || 'incoming.renumbered.mrc.xml';
+my $outfile = $ARGV[1] || $infile . '.1per.xml';
+
+open IN, '<', $infile;
+open OUT,'>', $outfile;
 
 $seenrec  = 0;
 $stripcol = 0;
@@ -16,4 +19,4 @@ while (<IN>) {
   }
   s/\n// unless m|^</record|;
   print OUT;
-}
\ No newline at end of file
+}