diff -r d06cf9bcdea5 -r bc79b3740eb8 postfix/postfix.patch.pfls
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/postfix/postfix.patch.pfls	Mon Apr 06 23:53:05 2009 +0200
@@ -0,0 +1,71 @@
+This patch makes Pflogsumm working with the particular format
+of the OSSP fsl based Postfix logfile and additionally allows
+one to specify a more flexible data format.
+
+Index: pflogsumm.1
+--- pflogsumm.1.orig	2007-04-06 16:11:28 +0200
++++ pflogsumm.1	2007-04-06 17:35:12 +0200
+@@ -172,6 +172,8 @@
+ .Vb 2
+ \&    -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)
+ .Ve
+ .PP
+ .Vb 1
+Index: pflogsumm.pl
+--- pflogsumm.pl.orig	2008-06-29 15:46:01 +0200
++++ pflogsumm.pl	2008-06-29 19:39:07 +0200
+@@ -10,7 +10,7 @@
+ 
+ =head1 SYNOPSIS
+ 
+-    pflogsumm.pl -[eq] [-d <today|yesterday>] [-h <cnt>] [-u <cnt>]
++    pflogsumm.pl -[eq] [-d <today|yesterday|YYYY-MM-DD>] [-h <cnt>] [-u <cnt>]
+ 	[--verp_mung[=<n>]] [--verbose_msg_detail] [--iso_date_time]
+ 	[-m|--uucp_mung] [-i|--ignore_case] [--smtpd_stats] [--mailq]
+ 	[--problems_first] [--rej_add_from] [--no_bounce_detail]
+@@ -37,6 +37,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)
+ 
+     -e             extended (extreme? excessive?) detail
+ 
+@@ -359,6 +362,7 @@
+ use strict;
+ use locale;
+ use Getopt::Long;
++use Date::Parse;
+ eval { require Date::Calc };
+ my $hasDateCalc = $@ ? 0 : 1;
+ 
+@@ -542,8 +546,8 @@
+     my $logRmdr;
+     next unless((($msgMonStr, $msgDay, $msgHr, $msgMin, $msgSec, $logRmdr) =
+ 	/^(...) +(\d+) (..):(..):(..) \S+ (.+)$/o) == 6);
+-    unless((($cmd, $qid) = $logRmdr =~ m#^(?:postfix|$syslogName)/([^\[:]*).*?: ([^:\s]+)#o) == 2 ||
+-           (($cmd, $qid) = $logRmdr =~ m#^((?:postfix)(?:-script)?)(?:\[\d+\])?: ([^:\s]+)#o) == 2)
++    unless((($cmd, $qid) = $logRmdr =~ m#^<[a-z]+>\s+(?:postfix|$syslogName)/([^\[:]*).*?: ([^:\s]+)#o) == 2 ||
++           (($cmd, $qid) = $logRmdr =~ m#^<[a-z]+>\s+((?:postfix)(?:-script)?)(?:\[\d+\])?: ([^:\s]+)#o) == 2)
+     {
+ 	#print UNPROCD "$_";
+ 	next;
+@@ -1406,11 +1410,11 @@
+ 	# Back up to yesterday
+ 	$time -= ((localtime($time))[2] + 2) * 3600;
+     } elsif($dateOpt ne "today") {
+-	die "$usageMsg\n";
++	$time = str2time($dateOpt);
+     }
+     my ($t_mday, $t_mon) = (localtime($time))[3,4];
+ 
+-    return sprintf("%s %2d", $monthNames[$t_mon], $t_mday);
++    return sprintf("%s %02d", $monthNames[$t_mon], $t_mday);
+ }
+ 
+ # if there's a real domain: uses that.  Otherwise uses the IP addr.