Add option '-V': print version and copyright information.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-04-08 07:36:11 +02:00
parent ae3b1b7906
commit a052296f3b

View file

@ -59,7 +59,12 @@ use Getopt::Std;
my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date
my %Options; my %Options;
getopts('hvpdt:f:', \%Options); getopts('Vhvpdt:f:', \%Options);
if ($Options{'V'}) {
print "$0 v $Version\nCopyright (c) 2003 Marc Brockschmidt <marc\@marcbrockschmidt.de>\nCopyright (c) 2010 Thomas Hochstein <thh\@inter.net>\n";
print "This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.\n";
exit(0);
}
if ($Options{'h'}) { if ($Options{'h'}) {
exec ('perldoc', $0); exec ('perldoc', $0);
exit(0); exit(0);
@ -695,6 +700,10 @@ was posted and the second being the message ID of that incarnation.
=over 3 =over 3
=item B<-V> (version)
Print out version and copyright information on B<yapfaq> and exit.
=item B<-h> (help) =item B<-h> (help)
Print this man page and exit. Print this man page and exit.