You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by jh...@apache.org on 2020/09/12 17:32:42 UTC
svn commit: r1881666 -
/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm
Author: jhardin
Date: Sat Sep 12 17:32:42 2020
New Revision: 1881666
URL: http://svn.apache.org/viewvc?rev=1881666&view=rev
Log:
Add debug logging of meta rule hits
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm?rev=1881666&r1=1881665&r2=1881666&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/Check.pm Sat Sep 12 17:32:42 2020
@@ -659,10 +659,16 @@ sub do_meta_tests {
');
}
+ # conditionally include the dbg in the eval str
+ my $dbgstr = '';
+ if (would_log('dbg')) {
+ $dbgstr = 'dbg("rules: ran meta rule '.$metas[$i].' ======> got hit");';
+ }
+
# Add this meta rule to the eval line
$self->add_evalstr($pms, '
$r = '.$meta{$metas[$i]}.';
- if ($r) { $self->got_hit(q#'.$metas[$i].'#, "", ruletype => "meta", value => $r); }
+ if ($r) { $self->got_hit(q#'.$metas[$i].'#, "", ruletype => "meta", value => $r); '.$dbgstr.' }
');
splice @metas, $i--, 1; # remove this rule from our list