X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=NewsStats.pm;h=34635c16cfa7af8f9604ea1f647fe81132415495;hp=ed76737246f29be67de050b4a0b66cf63b695630;hb=610b5ef4928b81ab4eecbcdf2ac38197614f0953;hpb=741336c210429f37bebfd9882b9461e824320cd0

diff --git a/NewsStats.pm b/NewsStats.pm
index ed76737..34635c1 100644
--- a/NewsStats.pm
+++ b/NewsStats.pm
@@ -200,6 +200,8 @@ sub GetTimePeriod {
   my ($Month,$Period) = @_;
   # 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);
+  # 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
   $Month = &LastMonth if (!defined($Month) and !defined($Period));
   # set $StartMonth, $EndMonth