Am 09.12.2014 um 17:27 schrieb Christian Rößner:
13864 if ($score && $score >= 0.5) {
13865 $msginfo->ip_repu_score($score);
13866 my $spam_test = sprintf('AM.IP_BAD_%s=%.1f', $worst_ip, $score);
13867 for my $r (@{$msginfo->per_recip_data}) {
13868 $r->spam_level( ($r->spam_level || 0) + $score);
13869 $r->spam_tests([]) if !$r->spam_tests;
13870 unshift(@{$r->spam_tests}, \$spam_test);
13871 }
13872 }
I am not a Perl developer, so I have a little bit problems to understand
things. What I would love to reach is that the $score can never be more than a
fixed value. Let’s say 3.5. So one wishlist feature is to have a parameter that
specifies a max_bad_ip_score, but in the meantime, I would like to hard-code
this to get things back to work.
I am by no means a perl devloper either, but the simplest way to do that
way of hard coding so far seems to me to add a new line after 13871,
that goes like this:
if ($score >= 3.5)
$score = 3.5;
You get the idea.
