Mailing List Archive

Author: jm
Date: Tue May 10 00:51:53 2005
New Revision: 169434

URL: http://svn.apache.org/viewcvs?rev=169434&view=rev
Log:
fix Logger to support multi-line log messages again

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm?rev=169434&r1=169433&r2=169434&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Logger.pm Tue May 10 00:51:53 2005
@@ -140,9 +140,14 @@

my $message = join(" ", @message);
$message =~ s/[\r\n]+$//; # remove any trailing newlines
- $message =~ s/[\x00-\x1f]/_/g; # replace control characters with "_"
- while (my ($name, $object) = each %{ $LOG_SA{method} }) {
- $object->log_message($level, $message);
+
+ # split on newlines and call log_message multiple times; saves
+ # the subclasses having to understand multi-line logs
+ foreach my $line (split(/\n/s, $message)) {
+ $line =~ s/[\x00-\x1f]/_/gm; # replace control characters with "_"
+ while (my ($name, $object) = each %{ $LOG_SA{method} }) {
+ $object->log_message($level, $line);
+ }
}
}