| 123456789101112131415161718192021222324252627 |
- This patch makes Pflogsumm working with the particular format
- of the OSSP fsl based Postfix logfile.
- --- pflogsumm.pl.orig Tue Jun 17 17:59:57 2003
- +++ pflogsumm.pl Tue Jun 24 11:41:59 2003
- @@ -498,8 +498,8 @@
- s/: \[ID \d+\s+[^\]]+\] /: /o; # lose "[ID nnnnnn some.thing]" stuff
- my $logRmdr;
- ($msgMonStr, $msgDay, $msgTimeStr, $logRmdr) = /^(...)\s+(\d+)\s(..:..:..)\s\S+\s(.+)$/o;
- - unless((($cmd, $qid) = $logRmdr =~ m#^(?:vmailer|postfix|$syslogName)/([^\[:]*).*?: ([^:\s]+)#o) == 2 ||
- - (($cmd, $qid) = $logRmdr =~ m#^((?:vmailer|postfix)(?:-script)?)(?:\[\d+\])?: ([^:\s]+)#o) == 2)
- + unless((($cmd, $qid) = $logRmdr =~ m#^<[a-z]+>\s+(?:vmailer|postfix|$syslogName)/([^\[:]*).*?: ([^:\s]+)#o) == 2 ||
- + (($cmd, $qid) = $logRmdr =~ m#^<[a-z]+>\s+((?:vmailer|postfix)(?:-script)?)(?:\[\d+\])?: ([^:\s]+)#o) == 2)
- {
- #print UNPROCD "$_";
- next;
- @@ -1324,7 +1324,7 @@
- }
- 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 first
|
