You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by mm...@apache.org on 2014/10/22 18:07:51 UTC
svn commit: r1633645 -
/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm
Author: mmartinec
Date: Wed Oct 22 16:07:50 2014
New Revision: 1633645
URL: http://svn.apache.org/r1633645
Log:
Plugin/AskDNS: additional debug logging
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm?rev=1633645&r1=1633644&r2=1633645&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/AskDNS.pm Wed Oct 22 16:07:50 2014
@@ -376,6 +376,17 @@ sub extract_metadata {
for my $depends_on_tags (keys %{$conf->{askdns}}) {
my @tags;
@tags = split(/,/, $depends_on_tags) if $depends_on_tags ne '';
+
+ if (would_log("dbg","askdns")) {
+ while ( my($query_template_key, $struct) =
+ each %{$conf->{askdns}{$depends_on_tags}} ) {
+ my($query_template, $query_type, $answer_types_ref, $rules) =
+ @$struct{qw(query q_type a_types rules)};
+ dbg("askdns: depend on tags %s, rules: %s ",
+ $depends_on_tags, join(', ', keys %$rules));
+ }
+ }
+
if (!@tags) {
# no dependencies on tags, just call directly
$self->launch_queries($pms,$depends_on_tags);