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

Indent

Browse Source
master
Heuzef 5 years ago
parent d45e06fa7c
commit 572928e85e
1 changed files with 89 additions and 89 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. 178
      Check.pm

178
Check.pm
Unescape View File

@ -134,102 +134,102 @@ sub action
$shortErr = " ($shortErr)"; $shortErr = " ($shortErr)";
} }
# Check Size Consistency # Check Size Consistency
my $bpc = BackupPC::Lib->new(); my $bpc = BackupPC::Lib->new();
my $mainConf = $bpc->ConfigDataRead(); my $mainConf = $bpc->ConfigDataRead();
my $check = {}; my $check = {};
my $hostConf = $bpc->ConfigDataRead($host); my $hostConf = $bpc->ConfigDataRead($host);
my $conf = { %$mainConf, %$hostConf }; my $conf = { %$mainConf, %$hostConf };
my $age = -1; my $age = -1;
$check = { $check = {
bkp => 0, bkp => 0,
last_age => 0, last_age => 0,
errors => 0, errors => 0,
new_size => 0, new_size => 0,
new_size_avg => 0, new_size_avg => 0,
new_size_median => 0, new_size_median => 0,
new_size_q1 => 0, new_size_q1 => 0,
new_size_q3 => 0 new_size_q3 => 0
}; };
my @bpc_info = $bpc->BackupInfoRead($host); my @bpc_info = $bpc->BackupInfoRead($host);
my $sizes = new Statistics::Descriptive::Full; my $sizes = new Statistics::Descriptive::Full;
if ( scalar( @bpc_info ) ){ if ( scalar( @bpc_info ) ){
foreach my $backup ( @bpc_info ) { foreach my $backup ( @bpc_info ) {
# Skip partial or active backups # Skip partial or active backups
next if ( $backup->{type} !~ m/^full|incr$/ ); next if ( $backup->{type} !~ m/^full|incr$/ );
# Push all the sizes in our data set to compute avg sizes # Push all the sizes in our data set to compute avg sizes
# Exclude backup N°0 as it'll always have much more new data than normal backups # Exclude backup N°0 as it'll always have much more new data than normal backups
$sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 ); $sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 );
$check->{bkp}++; $check->{bkp}++;
} }
# Ignore the last backup if it's not full or incr (which means it's either partial or active)
my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
$check->{errors} = $bpc_info[$i]->{xferErrs};
$check->{new_size} = $bpc_info[$i]->{sizeNew};
$check->{new_size_avg} = int $sizes->mean;
$check->{new_size_median} = int $sizes->median;
$check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0;
$check->{new_size_q3} = eval { int $sizes->quantile(3) } || 0;
$check->{age} = time - $bpc_info[$i]->{startTime};
$check->{last_age} = sprintf("%.1f", ($check->{age}) / 84600);
}
# TOO BIG ? # Ignore the last backup if it's not full or incr (which means it's either partial or active)
my $toobig = "1"; my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
if ( $check->{new_size} > ($check->{new_size_q3} + $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} > $check->{new_size_avg} * 6 ) {
$toobig = "1"; $check->{errors} = $bpc_info[$i]->{xferErrs};
} $check->{new_size} = $bpc_info[$i]->{sizeNew};
else { $check->{new_size_avg} = int $sizes->mean;
$toobig = "0"; $check->{new_size_median} = int $sizes->median;
} $check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0;
$check->{new_size_q3} = eval { int $sizes->quantile(3) } || 0;
$check->{age} = time - $bpc_info[$i]->{startTime};
$check->{last_age} = sprintf("%.1f", ($check->{age}) / 84600);
}
# TOO SMALL ? # TOO BIG ?
my $toosmall = "1"; my $toobig = "1";
if ( $check->{new_size} < ($check->{new_size_q1} - $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} < $check->{new_size_avg} / 3 ) { if ( $check->{new_size} > ($check->{new_size_q3} + $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} > $check->{new_size_avg} * 6 ) {
$toosmall = "1"; $toobig = "1";
} }
else { else {
$toosmall = "0"; $toobig = "0";
} }
my $sizeConsistency = "<strong>ANOMALOUS</strong>"; # TOO SMALL ?
my $sizeConsistencyColor = "Tomato"; my $toosmall = "1";
if ( $check->{new_size} < ($check->{new_size_q1} - $check->{new_size_q3} - $check->{new_size_q1}) * 1.5 or $check->{new_size} < $check->{new_size_avg} / 3 ) {
# Get result $toosmall = "1";
if ( $toobig or $toosmall ) { }
$sizeConsistency = "<strong>ANOMALOUS</strong>"; else {
$sizeConsistencyColor = "Tomato"; $toosmall = "0";
} }
else {
$sizeConsistency = "Normal"; my $sizeConsistency = "<strong>ANOMALOUS</strong>";
$sizeConsistencyColor = "MediumSeaGreen"; my $sizeConsistencyColor = "Tomato";
}
# Get result
if ( $toobig or $toosmall ) {
$sizeConsistency = "<strong>ANOMALOUS</strong>";
$sizeConsistencyColor = "Tomato";
}
else {
$sizeConsistency = "Normal";
$sizeConsistencyColor = "MediumSeaGreen";
}
# Get URL for explore file # Get URL for explore file
my $browseFile = "?action=browse&host=$host"; my $browseFile = "?action=browse&host=$host";
# Show summary # Show summary
$str = <<EOF; $str = <<EOF;
<tr$reasonHilite><td class="border">${HostLink($host)}</td> <tr$reasonHilite><td class="border">${HostLink($host)}</td>
<td align="center" class="border" style="color:$lastAgeColor;">$lastAge <em>(Freq: $frequency)</em></td> <td align="center" class="border" style="color:$lastAgeColor;">$lastAge <em>(Freq: $frequency)</em></td>
<td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td> <td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td>
<td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td> <td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td>
<td align="center" class="border"><a href="$browseFile" target="_blank">Explore files ...</a></td> <td align="center" class="border"><a href="$browseFile" target="_blank">Explore files ...</a></td>
EOF EOF
# Increment counter # Increment counter
if ( @Backups == 0 ) { if ( @Backups == 0 ) {
$hostCntNone++; $hostCntNone++;
$strNone .= $str; $strNone .= $str;
} else { } else {
$hostCntGood++; $hostCntGood++;
$strGood .= $str; $strGood .= $str;
} }
} }
# End loop # End loop

Write Preview
Loading…
Cancel
Save