Mailing List Archive

Author: jm
Date: Wed Apr 27 10:55:57 2005
New Revision: 165017

URL: http://svn.apache.org/viewcvs?rev=165017&view=rev
Log:
make URIDNSBL id-collision warnings more informative

Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm?rev=165017&r1=165016&r2=165017&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm Wed Apr 27 10:55:57 2005
@@ -621,7 +621,8 @@
# this zone is a simple rule, not a set of subrules
# skip any A record that isn't on 127/8
if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./) {
- warn("uridnsbl: bogus rr for domain=$dom, rule=$rulename, rr=" . $rr->string);
+ warn("uridnsbl: bogus rr for domain=$dom, rule=$rulename, id=" .
+ $packet->header->id." rr=".$rr->string);
next;
}
$self->got_dnsbl_hit($scanstate, $ent, $rdatastr, $dom, $rulename);
@@ -632,7 +633,8 @@
if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./ &&
!($uridnsbl_subs_bits & 0xff000000))
{
- warn("uridnsbl: bogus rr: domain=$dom, zone=$ent->{zone}, rr=" . $rr->string);
+ warn("uridnsbl: bogus rr: domain=$dom, zone=$ent->{zone}, id=" .
+ $packet->header->id." rr=".$rr->string);
next;
}
foreach my $subtest (keys (%{$uridnsbl_subs}))