thh/newsstats
1
0
Fork 0
Code Issues 4 Pull requests Packages Projects Releases Activity

NewsStats.pm: Warn when -p takes precedence over -m.

Browse source 
Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2010-09-17 22:26:56 +02:00
parent acfce7c3d4
commit b221278d97
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
NewsStats.pm
View file

@ -200,6 +200,8 @@ sub GetTimePeriod {
my ($Month,$Period) = @_; my ($Month,$Period) = @_;
# exit if -m is set and not like YYYY-MM # exit if -m is set and not like YYYY-MM
die "$MySelf: E: Wrong date format - use '$MySelf -m YYYY-MM'!\n" if not &CheckMonth($Month); die "$MySelf: E: Wrong date format - use '$MySelf -m YYYY-MM'!\n" if not &CheckMonth($Month);
# warn if -m and -p is set
warn "$MySelf: W: Time period assigned by '-p' takes precendece over month assigned by '-m'.\n" if ($Month && $Period);
# default: set -m to last month # default: set -m to last month
$Month = &LastMonth if (!defined($Month) and !defined($Period)); $Month = &LastMonth if (!defined($Month) and !defined($Period));
# set $StartMonth, $EndMonth # set $StartMonth, $EndMonth