[svn:qpsmtpd] rev 403 - in trunk: . plugins/logging
[email protected] 6 Apr 2005 18:34:02 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: jpeacock
Date: Wed Apr 6 11:34:02 2005
New Revision: 403
Modified:
trunk/ (props changed)
trunk/plugins/logging/adaptive
Log:
* plugins/logging/adaptive
Skip empty log lines in both accept and reject case
Modified: trunk/plugins/logging/adaptive
==============================================================================
--- trunk/plugins/logging/adaptive (original)
+++ trunk/plugins/logging/adaptive Wed Apr 6 11:34:02 2005
@@ -61,6 +61,7 @@
": '$return_text'"), "\n";
foreach my $row ( @{$transaction->{_log}} ) {
+ next unless scalar @$row; # skip over empty log lines
my ($trace, $hook, $plugin, @log) = @$row;
if ($trace <= $self->{_maxlevel}) {
warn
@@ -83,7 +84,7 @@
my ($self, $transaction, @args) = @_;
foreach my $row ( @{$transaction->{_log}} ) {
- next unless scalar @$row;
+ next unless scalar @$row; # skip over empty log lines
my ($trace, $hook, $plugin, @log) = @$row;
warn
join(" ", $$ .