X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=fingerprinter;h=3b7e0ef091a0d5dbb8b30e0c85b97f3067b593f6;hp=46759b9722e1af74006761b718dc366c033f2b42;hb=03dccb137faaa857c9599218d5fb2d8d80706099;hpb=66d3b22157fc35fc3060788583c70da3a1aa8a8a diff --git a/fingerprinter b/fingerprinter index 46759b9..3b7e0ef 100755 --- a/fingerprinter +++ b/fingerprinter @@ -285,6 +285,19 @@ sub initialize { # set mode on existing filehandles binmode(STDIN, ':utf8'); + # set defaults if told to do so + if ($c->{incoming}) { + $c->{tag} = 903; + $c->{subfield} = 'a'; + $c->{output} = 'incoming.fp'; + $c->{exception} = 'incoming.ex'; + } elsif ($c->{incumbent}) { + $c->{tag} = 901; + $c->{subfield} = 'c'; + $c->{output} = 'incumbent.fp'; + $c->{exception} = 'incumbent.ex'; + } + my $rc = GetOptions( $c, 'incoming', 'incumbent', @@ -299,19 +312,6 @@ sub initialize { show_help() unless $rc; show_help() if ($c->{help}); - # set defaults if told to do so - if ($c->{incoming}) { - $c->{tag} = 903; - $c->{subfield} = 'a'; - $c->{output} = 'incoming.fp'; - $c->{exception} = 'incoming.ex'; - } elsif ($c->{incumbent}) { - $c->{tag} = 901; - $c->{subfield} = 'c'; - $c->{output} = 'incumbent.fp'; - $c->{exception} = 'incumbent.ex'; - } - my @keys = keys %{$c}; show_help() unless (@ARGV and @keys); for my $key ('runtype', 'tag', 'subfield', 'output', 'exception') @@ -352,8 +352,8 @@ Options --incoming Set -r to 'full'; -t, -s, -o, -x to incoming defaults --incumbent Set -r to 'full'; -t, -s, -o, -x to incumbent defaults - Example: '$0 --incoming' is equivalent to - '$0 -r full -t 903 -s a -o incoming.fp -x incoming.ex' + Example: '$0 --incoming' is equivalent to + '$0 -r full -t 903 -s a -o incoming.fp -x incoming.ex' --quiet -q Don't write status messages to STDOUT HELP