From: Thomas Hochstein <thh@inter.net>
Date: Thu, 8 Apr 2010 05:36:11 +0000 (+0200)
Subject: Add option '-V': print version and copyright information.
X-Git-Tag: v0.7~12
X-Git-Url: https://code.th-h.de/?p=usenet%2Fyapfaq.git;a=commitdiff_plain;h=a052296f3b55e5f07e7d70b53c988721b129b0bc;hp=ae3b1b7906bb835b80b86143c0285965afa728d8;ds=inline

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

Signed-off-by: Thomas Hochstein <thh@inter.net>
---

diff --git a/yapfaq.pl b/yapfaq.pl
index 888a4f5..084c77e 100644
--- a/yapfaq.pl
+++ b/yapfaq.pl
@@ -59,7 +59,12 @@ use Getopt::Std;
 my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date
 
 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'}) {
   exec ('perldoc', $0);
   exit(0);
@@ -695,6 +700,10 @@ was posted and the second being the message ID of that incarnation.
 
 =over 3
 
+=item B<-V> (version)
+
+Print out version and copyright information on B<yapfaq> and exit.
+
 =item B<-h> (help)
 
 Print this man page and exit.