"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Mail/SpamAssassin/DnsResolver.pm" between
Mail-SpamAssassin-3.4.4.tar.bz2 and Mail-SpamAssassin-3.4.5.tar.bz2

About: SpamAssassin is a mail filter that uses a wide range of heuristic tests on mail headers and body text to identify "spam" (also known as unsolicited commercial email) incl. Bayesian (statistical) spam filter and several internet-based realtime blacklists.

DnsResolver.pm  (Mail-SpamAssassin-3.4.4.tar.bz2):DnsResolver.pm  (Mail-SpamAssassin-3.4.5.tar.bz2)
skipping to change at line 861 skipping to change at line 861
# #
my $cb = delete $self->{id_to_callback}->{$id}; my $cb = delete $self->{id_to_callback}->{$id};
if ($cb) { if ($cb) {
$cb->($packet, $id, $now); $cb->($packet, $id, $now);
$cnt++; $cnt++;
} else { # no match, report the problem } else { # no match, report the problem
if ($rcode eq 'REFUSED' || $id =~ m{^\d+/NO_QUESTION_IN_PACKET\z}) { if ($rcode eq 'REFUSED' || $id =~ m{^\d+/NO_QUESTION_IN_PACKET\z}) {
# the failure was already reported above # the failure was already reported above
} else { } else {
info("dns: no callback for id $id, ignored, packet on next debug lin e"); dbg("dns: no callback for id $id, ignored, packet on next debug line ");
# prevent filling normal logs with huge packet dumps # prevent filling normal logs with huge packet dumps
dbg("dns: %s", $packet ? $packet->string : "undef"); dbg("dns: %s", $packet ? $packet->string : "undef");
} }
# report a likely matching query for diagnostic purposes # report a likely matching query for diagnostic purposes
local $1; local $1;
if ($id =~ m{^(\d+)/}) { if ($id =~ m{^(\d+)/}) {
my $dnsid = $1; # the raw DNS packet id my $dnsid = $1; # the raw DNS packet id
my @matches = my @matches =
grep(m{^\Q$dnsid\E/}, keys %{$self->{id_to_callback}}); grep(m{^\Q$dnsid\E/}, keys %{$self->{id_to_callback}});
if (!@matches) { if (!@matches) {
info("dns: no likely matching queries for id %s", $dnsid); dbg("dns: no likely matching queries for id %s", $dnsid);
} else { } else {
info("dns: a likely matching query: %s", join(', ', @matches)); dbg("dns: a likely matching query: %s", join(', ', @matches));
} }
} }
} }
} }
} }
} }
return $cnt; return $cnt;
} }
 End of changes. 3 change blocks. 
3 lines changed or deleted 3 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)