svn commit: r158887 - spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm

[jm...@apache.org]

Author: jm
Date: Wed Mar 23 22:50:52 2005
New Revision: 158887

URL: http://svn.apache.org/viewcvs?view=rev&rev=158887
Log:
bug 3997: log any incorrect answers received

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?view=diff&r1=158886&r2=158887
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm Wed Mar 23 22:50:52 2005
@@ -605,14 +605,21 @@
     if (!$rulecf->{is_subrule}) {
       # this zone is a simple rule, not a set of subrules
       # skip any A record that isn't on 127/8
-      next if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./);
+      if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./) {
+        warn "URIDNSBL: Net::DNS bogosity in rule, ignored: ".$rr->string;
+        next;
+      }
       $self->got_dnsbl_hit ($scanstate, $ent, $rdatastr, $dom, $rulename);
     }
     else {
       # skip any A record that isn't on 127/8 if we're not looking for
       # any bits in the first octet, this is a workaround for bug 3997
-      next if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./ &&
-	       !($uridnsbl_subs_bits & 0xff000000));
+      if ($rr->type eq 'A' && $rr->rdatastr !~ /^127\./ &&
+	       !($uridnsbl_subs_bits & 0xff000000))
+      {
+        warn "URIDNSBL: Net::DNS bogosity in subrule, ignored: ".$rr->string;
+        next;
+      }
       foreach my $subtest (keys (%{$uridnsbl_subs}))
       {
         my $subrulename = $uridnsbl_subs->{$subtest}->{rulename};