diff options
Diffstat (limited to 'img/dist/IM/imgrep.in')
| -rw-r--r-- | img/dist/IM/imgrep.in | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/img/dist/IM/imgrep.in b/img/dist/IM/imgrep.in index 609c7849..97781da4 100644 --- a/img/dist/IM/imgrep.in +++ b/img/dist/IM/imgrep.in @@ -5,7 +5,7 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Oct 28, 2003 +### Revised: Jul 4, 2004 ### BEGIN { @@ -13,9 +13,15 @@ BEGIN { @im_src_siteperl@ }; -my $VERSION = "imgrep version 20031028(IM146)"; - $Prog = 'imgrep'; +my $VERSION_DATE = "20040704"; +my $VERSION_NUMBER = "147"; +my $VERSION = "${Prog} version ${VERSION_DATE}(IM${VERSION_NUMBER})"; +my $VERSION_INFORMATION = "${Prog} (IM ${VERSION_NUMBER}) ${VERSION_DATE} +Copyright (C) 1999 IM developing team +This is free software; see the source for copying conditions. There is NO +warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +"; ## ## Require packages @@ -30,7 +36,7 @@ use strict; use vars qw($Prog $EXPLANATION @OptConfig $opt_format @opt_src $opt_casefold $opt_expression $opt_delimiter $opt_dupchecktarget $opt_verbose $opt_debug - $opt_quiet $opt_help); + $opt_quiet $opt_help $opt_version); ## ## Environments @@ -61,7 +67,7 @@ Usage: $Prog [OPTIONS] [FOLDER] [RANGE] "\n\t\t(default: \"number\" for single target folder". "\n\t\t \"path\" for multiple target folders)", 'casefold;b;on;' => 'Case sensitivity'. - "\n\t\t(This option affects both fieldname and pattern.)", + "\n\t\t(This option affects both fieldname and pattern)", 'expression;s;;' => 'Search expression:'. "\n\n\t\tUsable keyword". "\n\t\t\t& && logical AND". @@ -75,10 +81,11 @@ Usage: $Prog [OPTIONS] [FOLDER] [RANGE] "\n\t\t\tall Entire message", 'delimiter;s;\n\n|\n----\n;' => 'Mail header delimiter', 'dupchecktarget,D;s;none;' => 'Duplicate Check Target', - 'quiet;b;;' => 'Suppress informational messages.', - 'verbose;b;;' => 'With diagnostic messages.', - 'debug;d;;' => 'With debug messages.', - 'help;b;;' => 'Show this messages.', + 'quiet;b;;' => 'Suppress informational messages', + 'verbose;b;;' => 'With diagnostic messages', + 'debug;d;;' => 'With debug messages', + 'help;b;;' => "Display this help and exit", + 'version,V;b;;' => "Output version information and exit", ); ## @@ -88,8 +95,8 @@ Usage: $Prog [OPTIONS] [FOLDER] [RANGE] init_opt(\@OptConfig); read_cfg(); read_opt(\@ARGV); # help? +print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS if $opt_version; help($EXPLANATION) && exit $EXIT_SUCCESS if $opt_help; - debug_option($opt_debug) if $opt_debug; ## @@ -257,6 +264,10 @@ Print debug messages when running. Display help message and exit. +=item I<--version> + +Output version information and exit. + =back =head1 COPYRIGHT |