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

* plugins/logging/adaptive

Browse Source 
Skip empty log lines in both accept and reject case


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@403 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-04-06 18:34:02 +00:00
parent bfe7e6cb63
commit 1be0263025
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plugins/logging/adaptive
View File

@ -61,6 +61,7 @@ sub dlog {
": '$return_text'"), "\n"; ": '$return_text'"), "\n";
foreach my $row ( @{$transaction->{_log}} ) { foreach my $row ( @{$transaction->{_log}} ) {
next unless scalar @$row; # skip over empty log lines
my ($trace, $hook, $plugin, @log) = @$row; my ($trace, $hook, $plugin, @log) = @$row;
if ($trace <= $self->{_maxlevel}) { if ($trace <= $self->{_maxlevel}) {
warn warn
@ -83,7 +84,7 @@ sub slog {
my ($self, $transaction, @args) = @_; my ($self, $transaction, @args) = @_;
foreach my $row ( @{$transaction->{_log}} ) { foreach my $row ( @{$transaction->{_log}} ) {
next unless scalar @$row; next unless scalar @$row; # skip over empty log lines
my ($trace, $hook, $plugin, @log) = @$row; my ($trace, $hook, $plugin, @log) = @$row;
warn warn
join(" ", $$ . join(" ", $$ .