[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(" ", $$ .