If you want to modify debug output, you have to modify only the dbg()
output
itself. You can't modify internal functions that have specific output
formats and start adding random strings to them. Atleast these places
depend on the comma delimited rules:
./masses/mass-check: push @tests, split(/,/,
$status->get_names_of_subtests_hit());
./t/rule_tests.t: my %rules_hit = map { $_ => 1 }
split(/,/,$msg->get_names_of_tests_hit()),
split(/,/,$msg->get_names_of_subtests_hit());
./t.rules/run: my $testsline =
$status->get_names_of_tests_hit().",".$status->get_names_of_subtests_hit();
On Tue, Jun 04, 2019 at 01:56:26AM -0400, Kevin A. McGrail wrote:
Morning All,
After a few thoughts on limits, it appears that any duplicate subtest
hits are best combined for debug output.
Any thoughts on the attached? It looks like it will help me with rule
development while support rules with valid but large maxhits like
__LOWER_E
Regards,
KAM
On 5/31/2019 10:30 AM, Bill Cole wrote:
On 30 May 2019, at 20:35, Kevin A. McGrail wrote:
I was curious if anyone noticed the debug output for subtests has
gotten
insane:
It got a little discussion on users@ when I created those rules.
[...]
72_active.cf: body __LOWER_E /e/
72_active.cf: tflags __LOWER_E multiple
maxhits=230
72_active.cf: body __E_LIKE_LETTER /<lcase_e>/
72_active.cf: tflags __E_LIKE_LETTER multiple
maxhits=320
Assuming those maxhits are correct,
They are. In fact they were carefully tuned to catch the targeted
extortion spam.
maybe we need something in the debug
output that says __E_LIKE_LETTER (number of hits if more than 1).
That would be a useful enhancement even without my flagrant log
vandalism.
--
Kevin A. McGrail
Member, Apache Software Foundation
Chair Emeritus Apache SpamAssassin Project
https://www.linkedin.com/in/kmcgrail - 703.798.0171
Index: lib/Mail/SpamAssassin/PerMsgStatus.pm
===================================================================
--- lib/Mail/SpamAssassin/PerMsgStatus.pm (revision 1860582)
+++ lib/Mail/SpamAssassin/PerMsgStatus.pm (working copy)
@@ -769,7 +769,38 @@
sub get_names_of_subtests_hit {
my ($self) = @_;
- return join(',', sort @{$self->{subtest_names_hit}});
+ #return join(',', sort @{$self->{subtest_names_hit}});
+
+ #This routine prints only one instance of a subrule hit with a
count
of how many times it hit if greater than 1
+ my (%subtest_names_hit, $i, $key, @keys, @sorted, $string, $rule,
$total_hits, $deduplicated_hits);
+
+ $total_hits = scalar(@{$self->{subtest_names_hit}});
+
+ for ($i=0; $i < $total_hits; $i++) {
+ $rule = ${$self->{subtest_names_hit}}[$i];
+ $subtest_names_hit{$rule}++;
+ }
+
+ foreach $key (keys %subtest_names_hit) {
+ push (@keys, $key);
+ }
+ @sorted = sort @keys;
+
+ $deduplicated_hits = scalar(@sorted);
+
+ for ($i=0; $i < $deduplicated_hits; $i++) {
+ $string .= $sorted[$i];
+ if ($subtest_names_hit{$sorted[$i]} > 1) {
+ $string .= "($subtest_names_hit{$sorted[$i]})"
+ }
+ $string .= ",";
+ }
+
+ $string =~ s/,$//;
+
+ $string .= " (Total Subtest Hits: $total_hits / Deduplicated Total
Hits: $deduplicated_hits)";
+
+ return $string;
}
###########################################################################
