75 lines
2.7 KiB
Plaintext
75 lines
2.7 KiB
Plaintext
--- pflogsumm.pl.orig Sat Mar 20 21:00:42 2010
|
|
+++ pflogsumm.pl Tue Apr 6 09:04:29 2010
|
|
@@ -4,13 +4,13 @@ eval 'exec perl -S $0 "$@"'
|
|
|
|
=head1 NAME
|
|
|
|
-pflogsumm.pl - Produce Postfix MTA logfile summary
|
|
+pflogsumm - Produce Postfix MTA logfile summary
|
|
|
|
Copyright (C) 1998-2010 by James S. Seymour, Release 1.1.3.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
- pflogsumm.pl -[eq] [-d <today|yesterday>] [--detail <cnt>]
|
|
+ pflogsumm -[eq] [-d <today|yesterday>] [--detail <cnt>]
|
|
[--bounce_detail <cnt>] [--deferral_detail <cnt>]
|
|
[-h <cnt>] [-i|--ignore_case] [--iso_date_time] [--mailq]
|
|
[-m|--uucp_mung] [--no_bounce_detail] [--no_deferral_detail]
|
|
@@ -21,7 +21,7 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
|
|
[-u <cnt>] [--verbose_msg_detail] [--verp_mung[=<n>]]
|
|
[--zero_fill] [file1 [filen]]
|
|
|
|
- pflogsumm.pl -[help|version]
|
|
+ pflogsumm -[help|version]
|
|
|
|
If no file(s) specified, reads from stdin. Output is to stdout.
|
|
|
|
@@ -142,7 +142,7 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
|
|
The message may be delivered long-enough after the
|
|
(last) qmgr log entry that the information is not in
|
|
the log(s) processed by a particular run of
|
|
- pflogsumm.pl. This throws off "Recipients by message
|
|
+ pflogsumm. This throws off "Recipients by message
|
|
size" and the total for "bytes delivered." These are
|
|
normally reported by pflogsumm as "Messages with no
|
|
size data."
|
|
@@ -257,15 +257,15 @@ Copyright (C) 1998-2010 by James S. Seymour, Release 1
|
|
|
|
Produce a report of previous day's activities:
|
|
|
|
- pflogsumm.pl -d yesterday /var/log/maillog
|
|
+ pflogsumm -d yesterday /var/log/maillog
|
|
|
|
A report of prior week's activities (after logs rotated):
|
|
|
|
- pflogsumm.pl /var/log/maillog.0
|
|
+ pflogsumm /var/log/maillog.0
|
|
|
|
What's happened so far today:
|
|
|
|
- pflogsumm.pl -d today /var/log/maillog
|
|
+ pflogsumm -d today /var/log/maillog
|
|
|
|
Crontab entry to generate a report of the previous day's activity
|
|
at 10 minutes after midnight.
|
|
@@ -488,7 +488,7 @@ for (0 .. 23) {
|
|
$smtpdPerHr[$_] = [0,0,0];
|
|
}
|
|
|
|
-$progName = "pflogsumm.pl";
|
|
+$progName = "pflogsumm";
|
|
$usageMsg =
|
|
"usage: $progName -[eq] [-d <today|yesterday>] [--detail <cnt>]
|
|
[--bounce_detail <cnt>] [--deferral_detail <cnt>]
|
|
@@ -1421,7 +1421,8 @@ sub normalize_host {
|
|
|
|
if((my @octets = ($norm1 =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/o)) == 4) {
|
|
# Dotted-quad IP address
|
|
- return(pack('C4', @octets));
|
|
+ # Fix "Character in 'C' format wrapped in pack" warning
|
|
+ return(pack('U4', @octets));
|
|
} else {
|
|
# Possibly hostname or user@dom.ain
|
|
return(join( '', map { lc $_ } reverse split /[.@]/, $norm1 ));
|