diff options
Diffstat (limited to 'img/dist/IM/impwagent.in')
| -rw-r--r-- | img/dist/IM/impwagent.in | 32 |
1 files changed, 24 insertions, 8 deletions
diff --git a/img/dist/IM/impwagent.in b/img/dist/IM/impwagent.in index 34f53d69..2d9b6896 100644 --- a/img/dist/IM/impwagent.in +++ b/img/dist/IM/impwagent.in @@ -5,7 +5,7 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Sep 13, 1997 -### Revised: Oct 28, 2003 +### Revised: Jul 4, 2004 ### BEGIN { @@ -13,9 +13,15 @@ BEGIN { @im_src_siteperl@ }; -my $VERSION = "impwagent version 20031028(IM146)"; - $Prog = 'impwagent'; +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 @@ -59,6 +65,11 @@ if ($ARGV[0] =~ /clear/i) { exit $EXIT_SUCCESS; } +if ($ARGV[0] =~ /--version/i) { + print("${VERSION_INFORMATION}") && exit $EXIT_SUCCESS; +} + +# display help if ($ARGV[0] !~ /start/i && @ARGV > 0) { print <<EOF; $VERSION @@ -66,9 +77,10 @@ hold passwords for IM Usage: $Prog [start] start $Prog - $Prog stop/quit terminate $Prog + $Prog stop|quit terminate $Prog $Prog clear clear passwords held by $Prog - $Prog help show this message + $Prog help|--help Display this help and exit + $Prog --version Output version information and exit This command holds passwords to reuse on later sessions for IM. @@ -228,7 +240,7 @@ impwagent - hold passwords for IM =head1 SYNOPSIS -B<impwagent> [start | stop | quit | clear | help] +B<impwagent> [OPTIONS] =head1 DESCRIPTION @@ -260,9 +272,13 @@ Terminate impwagent. Clear passwords held by impwagent. -=item I<help> +=item I<help, --help> + +Display help message and exit. + +=item I<--version> -Show help message. +Output version information and exit. =back |