summarize: strip out unprintable chars

This commit is contained in:
Matt Simerson 2013-04-25 21:40:09 -04:00
parent 80bb4c93dd
commit cebf995f9d

View File

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