byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

summarize: strip out unprintable chars

Browse Source
This commit is contained in:
Matt Simerson 2013-04-25 21:40:09 -04:00
parent 2a11be4f8b
commit 3e7efb8883
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
log/summarize
View File

@ -57,6 +57,7 @@ my %formats = (
check_badmailfrom => "%-3.3s", check_badmailfrom => "%-3.3s",
sender_permitted_from => "%-3.3s", sender_permitted_from => "%-3.3s",
resolvable_fromhost => "%-3.3s", resolvable_fromhost => "%-3.3s",
dont_require_anglebrackets => "%-3.3s",
'queue::qmail-queue' => "%-3.3s", 'queue::qmail-queue' => "%-3.3s",
connection_time => "%-4.4s", connection_time => "%-4.4s",
); );
@ -82,6 +83,7 @@ my %formats3 = (
while (defined(my $line = $fh->read)) { while (defined(my $line = $fh->read)) {
chomp $line; chomp $line;
$line =~ s/[^[ -~]]//g; # strip out binary/unprintable
next if !$line; next if !$line;
my ($type, $pid, $hook, $plugin, $message) = parse_line($line); my ($type, $pid, $hook, $plugin, $message) = parse_line($line);
next if !$type; next if !$type;