Help with IP reputation

[Marc Stürmer]

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.