|
|
@ -168,21 +168,15 @@ sub action |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# TOO BIG ? |
|
|
|
# TOO BIG ? |
|
|
|
my $toobig = "1"; |
|
|
|
my $toobig = 0; |
|
|
|
if ( $check->{new_size} > ($check->{new_size_q3} + $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} > $check->{new_size_avg} * 6 ) { |
|
|
|
if ( $check->{new_size} > ($check->{new_size_q3} + $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} > $check->{new_size_avg} * 6 ) { |
|
|
|
$toobig = "1"; |
|
|
|
$toobig = 1; |
|
|
|
} |
|
|
|
|
|
|
|
else { |
|
|
|
|
|
|
|
$toobig = "0"; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# TOO SMALL ? |
|
|
|
# TOO SMALL ? |
|
|
|
my $toosmall = "1"; |
|
|
|
my $toosmall = 0; |
|
|
|
if ( $check->{new_size} < ($check->{new_size_q1} - $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} < $check->{new_size_avg} / 3 ) { |
|
|
|
if ( $check->{new_size} < ($check->{new_size_q1} - $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} < $check->{new_size_avg} / 3 ) { |
|
|
|
$toosmall = "1"; |
|
|
|
$toosmall = 1; |
|
|
|
} |
|
|
|
|
|
|
|
else { |
|
|
|
|
|
|
|
$toosmall = "0"; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
my $sizeConsistency = "<strong>ANOMALOUS</strong>"; |
|
|
|
my $sizeConsistency = "<strong>ANOMALOUS</strong>"; |
|
|
|