You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by do...@apache.org on 2005/07/21 07:53:37 UTC
svn commit: r219999 - /spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
Author: dos
Date: Wed Jul 20 22:53:35 2005
New Revision: 219999
URL: http://svn.apache.org/viewcvs?rev=219999&view=rev
Log:
bug 4431: add debugging info for whitelist and blacklist hits
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm?rev=219999&r1=219998&r2=219999&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/EvalTests.pm Wed Jul 20 22:53:35 2005
@@ -940,7 +940,10 @@
if ($addr =~ $regexp) {
foreach my $lastunt (@relays) {
my $rdns = $lastunt->{lc_rdns};
- if ($rdns =~ /(?:^|\.)\Q${domain}\E$/i) { return 1; }
+ if ($rdns =~ /(?:^|\.)\Q${domain}\E$/i) {
+ dbg("rules: address $addr matches (def_)whitelist_from_rcvd $list->{$white_addr}{re} ${domain}");
+ return 1;
+ }
}
# found address match but no relay match. note as possible forgery
$found_forged = -1;
@@ -968,6 +971,7 @@
study $addr;
foreach my $regexp (values %{$list}) {
if ($addr =~ qr/$regexp/i) {
+ dbg("rules: address $addr matches whitelist or blacklist regexp: $regexp");
return 1;
}
}