Remove not enought backup function ...

master
Heuzef 5 years ago
parent 1aaff130ba
commit ac5c4eee3d
  1. 39
      Check.pm

@ -105,33 +105,26 @@ sub action
# Using a mathematical formula to calculate the consistency of the average size, for new files, on all backups
my $toobig = 0;
my $toosmall = 0;
my $sizeConsistencyColor = "Tomato";
my $sizeConsistency = "<strong>ANOMALOUS</strong>";
# 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 :
if ( $new_size > ($new_size_q3 + ($new_size_q3 - $new_size_q1) ) * 1.5 and $new_size > $new_size_avg * 6 ) {
$toobig = 1;
}
# 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 ) {
$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 and $new_size < $new_size_avg / 3 ) {
$toosmall = 1;
}
# Get result
if ( not $toobig and not $toosmall ) {
$sizeConsistencyColor = "MediumSeaGreen";
$sizeConsistency = "Normal";
} else {
my $sizeConsistencyColor = "Tomato";
my $sizeConsistency = "<strong>ANOMALOUS</strong>";
}
# 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 and $new_size < $new_size_avg / 3 ) {
$toosmall = 1;
}
# Get result
if ( not $toobig and not $toosmall ) {
$sizeConsistencyColor = "MediumSeaGreen";
$sizeConsistency = "Normal";
}
# Get URL for explore file
my $browseFile = "?action=browse&host=$host";

Loading…
Cancel
Save