|
|
@ -105,9 +105,13 @@ sub action |
|
|
|
my $toobig = 0; |
|
|
|
my $toobig = 0; |
|
|
|
my $toosmall = 0; |
|
|
|
my $toosmall = 0; |
|
|
|
my $sizeConsistencyColor = "Tomato"; |
|
|
|
my $sizeConsistencyColor = "Tomato"; |
|
|
|
my $sizeConsistency = "<strong>???</strong>"; |
|
|
|
my $sizeConsistency = "<strong>ANOMALOUS</strong>"; |
|
|
|
|
|
|
|
|
|
|
|
if ( $idBackup > 4 ) { # There are enough backup ? |
|
|
|
# There are enough backup ? |
|
|
|
|
|
|
|
if ( $idBackup < 4 ) { |
|
|
|
|
|
|
|
my $sizeConsistencyColor = "Gray"; |
|
|
|
|
|
|
|
my $sizeConsistency = "<em>Not enough backups</em>"; |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
|
|
|
|
# TOO BIG ? If the size is 6 times higher than usual : |
|
|
|
# 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 and $new_size > $new_size_avg * 6 ) { |
|
|
|
if ( $new_size > ($new_size_q3 + ($new_size_q3 - $new_size_q1) ) * 1.5 and $new_size > $new_size_avg * 6 ) { |
|
|
@ -124,9 +128,6 @@ sub action |
|
|
|
$sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
$sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
$sizeConsistency = "Normal"; |
|
|
|
$sizeConsistency = "Normal"; |
|
|
|
} |
|
|
|
} |
|
|
|
} else { |
|
|
|
|
|
|
|
my $sizeConsistencyColor = "Gray"; |
|
|
|
|
|
|
|
my $sizeConsistency = "<em>Not enough backups</em>"; |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# Get URL for explore file |
|
|
|
# Get URL for explore file |
|
|
|