|
|
@ -96,7 +96,7 @@ sub action |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# Using a mathematical formula to calculate the consistency of the average size, for new files, on all backups |
|
|
|
# Using a mathematical formula to calculate the consistency of the average size, for new files, on all backups |
|
|
|
#if ( $Backups[-4] ) { # There are enough backup ? |
|
|
|
if ( $Backups[-4]->{type} =~ m/^full|incr$/ ) { # There are enough backup ? |
|
|
|
my $toobig = 0; |
|
|
|
my $toobig = 0; |
|
|
|
my $toosmall = 0; |
|
|
|
my $toosmall = 0; |
|
|
|
my $sizeConsistencyColor = "Tomato"; |
|
|
|
my $sizeConsistencyColor = "Tomato"; |
|
|
@ -117,11 +117,11 @@ sub action |
|
|
|
$sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
$sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
$sizeConsistency = "Normal"; |
|
|
|
$sizeConsistency = "Normal"; |
|
|
|
} |
|
|
|
} |
|
|
|
#} |
|
|
|
} |
|
|
|
#else { |
|
|
|
else { |
|
|
|
# my $sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
my $sizeConsistencyColor = "MediumSeaGreen"; |
|
|
|
# my $sizeConsistency = "<em>Not enough backups</em>"; |
|
|
|
my $sizeConsistency = "<em>Not enough backups</em>"; |
|
|
|
#} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Get URL for explore file |
|
|
|
# Get URL for explore file |
|
|
|