File pflogsumm-date-option.patch of Package pflogsumm

Overview Repositories Revisions Requests Users Attributes Meta

File pflogsumm-date-option.patch of Package pflogsumm

diff -Nur pflogsumm-1.1.5-orig//pflogsumm.1 pflogsumm-1.1.5//pflogsumm.1
--- pflogsumm-1.1.5-orig//pflogsumm.1	2012-02-05 23:34:29.000000000 +0100
+++ pflogsumm-1.1.5//pflogsumm.1	2014-07-30 10:48:24.000000000 +0200
@@ -136,7 +136,7 @@
 .SH "SYNOPSIS"
 .IX Header "SYNOPSIS"
 .Vb 8
-\&    pflogsumm.pl \-[eq] [\-d <today|yesterday>] [\-\-detail <cnt>]
+\&    pflogsumm.pl \-[eq] [\-d <today|yesterday|date>] [\-\-detail <cnt>]
 \&        [\-\-bounce\-detail <cnt>] [\-\-deferral\-detail <cnt>]
 \&        [\-h <cnt>] [\-i|\-\-ignore\-case] [\-\-iso\-date\-time] [\-\-mailq]
 \&        [\-m|\-\-uucp\-mung] [\-\-no\-no\-msg\-size] [\-\-problems\-first]
@@ -171,6 +171,8 @@
 \&
 \&    \-d today       generate report for just today
 \&    \-d yesterday   generate report for just "yesterday"
+\&    \-d YYYY-MM-DD  generate report for just "YYYY-MM-DD"
+\&                    (Really takes string Date::Parse will handle)
 \&
 \&    \-\-deferral\-detail <cnt>
 \&
diff -Nur pflogsumm-1.1.5-orig//pflogsumm.pl pflogsumm-1.1.5//pflogsumm.pl
--- pflogsumm-1.1.5-orig//pflogsumm.pl	2012-02-05 23:25:25.000000000 +0100
+++ pflogsumm-1.1.5//pflogsumm.pl	2014-07-30 10:50:29.000000000 +0200
@@ -10,7 +10,7 @@
 
 =head1 SYNOPSIS
 
-    pflogsumm.pl -[eq] [-d <today|yesterday>] [--detail <cnt>]
+    pflogsumm.pl -[eq] [-d <today|yesterday|YYYY-MM-DD>] [--detail <cnt>]
 	[--bounce-detail <cnt>] [--deferral-detail <cnt>]
 	[-h <cnt>] [-i|--ignore-case] [--iso-date-time] [--mailq]
 	[-m|--uucp-mung] [--no-no-msg-size] [--problems-first]
@@ -43,6 +43,9 @@
 
     -d today       generate report for just today
     -d yesterday   generate report for just "yesterday"
+    -d YYYY-MM-DD  generate report for just "YYYY-MM-DD"
+		   (Actually this will take any date string
+		   parsable by the perl Date::Parse module)
 
     --deferral-detail <cnt>
 
@@ -1514,7 +1517,8 @@
 	# Back up to yesterday
 	$time -= ((localtime($time))[2] + 2) * 3600;
     } elsif($dateOpt ne "today") {
-	die "$usageMsg\n";
+	use Date::Parse; 
+	$time = str2time($dateOpt);
     }
     my ($t_mday, $t_mon, $t_year) = (localtime($time))[3,4,5];

Places

File pflogsumm-date-option.patch of Package pflogsumm

Places