Author: mss
Date: Thu Dec 2 14:17:29 2004
New Revision: 109570
URL: http://svn.apache.org/viewcvs?view=rev&rev=109570
Log:
Fix logging of multi-line string. Each line is preceded with ts own "debug: ${facility}:". Made that space a tab so debugging looks nicer :)
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin.pm
Url: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin.pm?view=diff&rev=109570&p1=spamassassin/trunk/lib/Mail/SpamAssassin.pm&r1=109569&p2=spamassassin/trunk/lib/Mail/SpamAssassin.pm&r2=109570
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin.pm Thu Dec 2 14:17:29 2004
@@ -1634,13 +1634,15 @@
my $facility = "generic";
my $message = shift;
- if ($message =~ /^(\S+?):\s*(.*)/) {
+ if ($message =~ /^(\S+?):\s*(.*)/s) {
$facility = $1;
$message = $2;
}
if ($facilities{all} || $facilities{$facility}) {
- warn "debug: $facility: $message\n";
+ $message =~ s/\n+$//s;
+ $message =~ s/^/debug: ${facility}:\t/mg;
+ warn "$message\n";
}
}
Date: Thu Dec 2 14:17:29 2004
New Revision: 109570
URL: http://svn.apache.org/viewcvs?view=rev&rev=109570
Log:
Fix logging of multi-line string. Each line is preceded with ts own "debug: ${facility}:". Made that space a tab so debugging looks nicer :)
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin.pm
Url: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin.pm?view=diff&rev=109570&p1=spamassassin/trunk/lib/Mail/SpamAssassin.pm&r1=109569&p2=spamassassin/trunk/lib/Mail/SpamAssassin.pm&r2=109570
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin.pm Thu Dec 2 14:17:29 2004
@@ -1634,13 +1634,15 @@
my $facility = "generic";
my $message = shift;
- if ($message =~ /^(\S+?):\s*(.*)/) {
+ if ($message =~ /^(\S+?):\s*(.*)/s) {
$facility = $1;
$message = $2;
}
if ($facilities{all} || $facilities{$facility}) {
- warn "debug: $facility: $message\n";
+ $message =~ s/\n+$//s;
+ $message =~ s/^/debug: ${facility}:\t/mg;
+ warn "$message\n";
}
}