add fix for SA bug 7231

This commit is contained in:
Dietmar Maurer 2017-11-24 08:07:39 +01:00
parent 5d0e038b9d
commit 27765d2907
2 changed files with 35 additions and 0 deletions

View File

@ -0,0 +1,34 @@
Description: Fix uninitialized values in URIDNSBL.pm with Net::DNS 1.01
Origin: upstream, https://svn.apache.org/viewvc/spamassassin/branches/3.4/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm?r1=1676616&r2=1694126&pathrev=1694126&view=patch
Bug: https://bz.apache.org/SpamAssassin/show_bug.cgi?id=7231
Bug-Debian: https://bugs.debian.org/760277
Last-Update: 2016-09-29
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm
+++ b/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm
@@ -942,9 +942,8 @@
next unless (defined($str) && defined($dom));
dbg("uridnsbl: got($j) NS for $dom: $str");
- if ($str =~ /IN\s+NS\s+(\S+)/) {
- my $nsmatch = lc $1;
- $nsmatch =~ s/\.$//;
+ if ($rr->type eq 'NS') {
+ my $nsmatch = lc $rr->nsdname; # available since at least Net::DNS 0.14
my $nsrhblstr = $nsmatch;
my $fullnsrhblstr = $nsmatch;
@@ -1025,9 +1024,9 @@
}
dbg("uridnsbl: complete_a_lookup got(%d) A for %s: %s", $j,$hname,$str);
- local $1;
- if ($str =~ /IN\s+A\s+(\S+)/) {
- $self->lookup_dnsbl_for_ip($pms, $ent->{obj}, $1);
+ if ($rr->type eq 'A') {
+ my $ip_address = $rr->rdatastr;
+ $self->lookup_dnsbl_for_ip($pms, $ent->{obj}, $ip_address);
}
}
}

View File

@ -1,3 +1,4 @@
disable-dkim.patch
bug_835494_perl_INC
bug_760277_net_dns_URIDNSBL
bug_821385_dnsresolver