diff --git a/Check.pm b/Check.pm index 0089579..29c9d76 100644 --- a/Check.pm +++ b/Check.pm @@ -96,26 +96,33 @@ sub action } # Using a mathematical formula to calculate the consistency of the average size, for new files, on all backups - # TOO BIG ? If the size is 6 times higher than usual : my $toobig = 0; - if ( $new_size > ($new_size_q3 + $new_size_q3 - $new_size_q1) * 1.5 or $new_size > $new_size_avg * 6 ) { - $toobig = 1; - } - - # TOO SMALL ? If the size is 3 times lower than usual : my $toosmall = 0; - if ( $new_size < ($new_size_q1 - $new_size_q3 - $new_size_q1) * 1.5 or $new_size < $new_size_avg / 3 ) { - $toosmall = 1; - } - # Get result - my $sizeConsistency = "ANOMALOUS"; - my $sizeConsistencyColor = "Tomato"; - if ( not $toobig and not $toosmall ) { - $sizeConsistency = "Normal"; - $sizeConsistencyColor = "MediumSeaGreen"; + if ( $Backups[-4] ) { + # TOO BIG ? If the size is 6 times higher than usual : + if ( $new_size > ($new_size_q3 + $new_size_q3 - $new_size_q1) * 1.5 or $new_size > $new_size_avg * 6 ) { + $toobig = 1; + } + + # TOO SMALL ? If the size is 3 times lower than usual : + if ( $new_size < ($new_size_q1 - $new_size_q3 - $new_size_q1) * 1.5 or $new_size < $new_size_avg / 3 ) { + $toosmall = 1; + } + + # Get result + my $sizeConsistencyColor = "Tomato"; + my $sizeConsistency = "ANOMALOUS"; + if ( not $toobig and not $toosmall ) { + $sizeConsistencyColor = "MediumSeaGreen"; + $sizeConsistency = "Normal"; + } + } else { + my $sizeConsistencyColor = "MediumSeaGreen"; + my $sizeConsistency = "Not enough backups"; } + # Get URL for explore file my $browseFile = "?action=browse&host=$host";