[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin Dns.pm,1.144,1.145

Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory sc8-pr-cvs1:/tmp/cvs-serv16469/lib/Mail/SpamAssassin

Modified Files:
        Dns.pm 
Log Message:
bug 2468: skip A records not on 127/8 (partial fix for Verisign damage)


Index: Dns.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/Dns.pm,v
retrieving revision 1.144
retrieving revision 1.145
diff -b -w -u -d -r1.144 -r1.145
--- Dns.pm      16 Sep 2003 02:10:34 -0000      1.144
+++ Dns.pm      16 Sep 2003 22:54:38 -0000      1.145
@@ -214,6 +214,8 @@
     $self->dnsbl_uri($question, $answer);
     # TODO: there are some CNAME returns that might be useful
     next if ($answer->type ne 'A' && $answer->type ne 'TXT');
+    # skip any A record that isn't on 127/8
+    next if ($answer->type eq 'A' && $answer->rdatastr !~ /^127\./);
     for my $rule (@{$query->[RULES]}) {
       $self->dnsbl_hit($rule, $question, $answer);
     }



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf