fws
/
BackupPC-Check
4
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move var

Browse Source
master
Heuzef 5 years ago
parent fa65af90c9
commit 6abfcd1024
1 changed files with 6 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 11
      Check.pm

11
Check.pm
Unescape View File

@ -96,11 +96,12 @@ 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]->{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"; my $sizeConsistency = "<strong>ANOMALOUS</strong>";
my $sizeConsistency = "<strong>ANOMALOUS</strong>";
if ( $Backups[-4] ) { # There are enough backup ?
# 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 ) {

Write Preview
Loading…
Cancel
Save