From bdbb9d7043b46b337971a45bc41934c5679490cc Mon Sep 17 00:00:00 2001 From: Thomas Hochstein Date: Thu, 13 May 2010 19:33:25 +0200 Subject: [PATCH] Making use of Getopt::Std's --help and --version. Fixes #3. Signed-off-by: Thomas Hochstein --- yapfaq.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/yapfaq.pl b/yapfaq.pl index 71ce4a1..685395a 100644 --- a/yapfaq.pl +++ b/yapfaq.pl @@ -12,7 +12,7 @@ # It can be redistributed and/or modified under the same terms under # which Perl itself is published. -my $Version = "0.8-prelease"; +our $VERSION = "0.8-prelease"; # Please do not change this setting! # You may override the default .rc file (.yapfaqrc) by using "-c .rc file" @@ -38,6 +38,7 @@ use Net::Domain qw(hostfqdn); use Date::Calc qw(Add_Delta_YM Add_Delta_Days Delta_Days Today); use Fcntl ':flock'; # import LOCK_* constants use Getopt::Std; +$Getopt::Std::STANDARD_HELP_VERSION = 1; my ($TDY, $TDM, $TDD) = Today(); #TD: Today's date # read commandline options @@ -45,7 +46,7 @@ my %Options; getopts('Vhvpdt:f:c:s:', \%Options); # -V: print version / copyright information if ($Options{'V'}) { - print "$0 v $Version\nCopyright (c) 2003 Marc Brockschmidt \nCopyright (c) 2010 Thomas Hochstein \n"; + print "$0 v $VERSION\nCopyright (c) 2003 Marc Brockschmidt \nCopyright (c) 2010 Thomas Hochstein \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); } @@ -312,7 +313,7 @@ sub postfaq { push @Header, "Reply-To: $$ReplyTo\n" if $$ReplyTo; push @Header, "Content-Type: text/plain; charset=ISO-8859-15\n"; push @Header, "Content-Transfer-Encoding: 8bit\n"; - push @Header, "User-Agent: yapfaq/$Version\n"; + push @Header, "User-Agent: yapfaq/$VERSION\n"; if ($$ExtraHeaders) { push @Header, "$_\n" for (split /\n/, $$ExtraHeaders); }