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

Ident

Browse Source
master
Heuzef 5 years ago
parent 3f72ede85b
commit 72f36cccc4
1 changed files with 106 additions and 106 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. 212
      Check.pm

212
Check.pm
Unescape View File

@ -107,128 +107,128 @@ sub action
$lastAgeColor = "Tomato"; $lastAgeColor = "Tomato";
} }
$reasonHilite = $Conf{CgiStatusHilightColor}{$Status{$host}{reason}} || $Conf{CgiStatusHilightColor}{$Status{$host}{state}}; $reasonHilite = $Conf{CgiStatusHilightColor}{$Status{$host}{reason}} || $Conf{CgiStatusHilightColor}{$Status{$host}{state}};
# If Backup is disable # If Backup is disable
if ( $Conf{BackupsDisable} == 1 ) { if ( $Conf{BackupsDisable} == 1 ) {
if ( $Status{$host}{state} ne "Status_backup_in_progress" && $Status{$host}{state} ne "Status_restore_in_progress" ) { if ( $Status{$host}{state} ne "Status_backup_in_progress" && $Status{$host}{state} ne "Status_restore_in_progress" ) {
$reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_OnlyManualBackups}; $reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_OnlyManualBackups};
$tempState = "Disabled_OnlyManualBackups"; $tempState = "Disabled_OnlyManualBackups";
$tempReason = ""; $tempReason = "";
} else {
$tempState = $Status{$host}{state};
$tempReason = $Status{$host}{reason};
}
} elsif ($Conf{BackupsDisable} == 2 ) {
$reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_AllBackupsDisabled};
$tempState = "Disabled_AllBackupsDisabled";
$tempReason = "";
} else { } else {
$tempState = $Status{$host}{state}; $tempState = $Status{$host}{state};
$tempReason = $Status{$host}{reason}; $tempReason = $Status{$host}{reason};
} }
} elsif ($Conf{BackupsDisable} == 2 ) {
$reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_AllBackupsDisabled};
$tempState = "Disabled_AllBackupsDisabled";
$tempReason = "";
} else {
$tempState = $Status{$host}{state};
$tempReason = $Status{$host}{reason};
}
$reasonHilite = " bgcolor=\"$reasonHilite\"" if ( $reasonHilite ne "" );
if ( $tempState ne "Status_backup_in_progress" && $tempState ne "Status_restore_in_progress" && $Conf{BackupsDisable} == 0 && $Status{$host}{error} ne "" ) {
($shortErr = $Status{$host}{error}) =~ s/(.{48}).*/$1.../;
$shortErr = " ($shortErr)";
}
# Check Size Consistency $reasonHilite = " bgcolor=\"$reasonHilite\"" if ( $reasonHilite ne "" );
my $mainConf = $bpc->ConfigDataRead(); if ( $tempState ne "Status_backup_in_progress" && $tempState ne "Status_restore_in_progress" && $Conf{BackupsDisable} == 0 && $Status{$host}{error} ne "" ) {
my $check = {}; ($shortErr = $Status{$host}{error}) =~ s/(.{48}).*/$1.../;
$shortErr = " ($shortErr)";
my $hostConf = $bpc->ConfigDataRead($host);
my $conf = { %$mainConf, %$hostConf };
my $age = -1;
$check = {
bkp => 0,
last_age => 0,
errors => 0,
new_size => 0,
new_size_avg => 0,
new_size_median => 0,
new_size_q1 => 0,
new_size_q3 => 0
};
my @bpc_info = $bpc->BackupInfoRead($host);
my $sizes = new Statistics::Descriptive::Full;
if ( scalar( @bpc_info ) ){
foreach my $backup ( @bpc_info ) {
# Skip partial or active backups
next if ( $backup->{type} !~ m/^full|incr$/ );
# 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
$sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 );
$check->{bkp}++;
} }
# Ignore the last backup if it's not full or incr (which means it's either partial or active) # Check Size Consistency
my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; my $mainConf = $bpc->ConfigDataRead();
my $check = {};
$check->{errors} = $bpc_info[$i]->{xferErrs};
$check->{new_size} = $bpc_info[$i]->{sizeNew}; my $hostConf = $bpc->ConfigDataRead($host);
$check->{new_size_avg} = int $sizes->mean; my $conf = { %$mainConf, %$hostConf };
$check->{new_size_median} = int $sizes->median; my $age = -1;
$check->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; $check = {
$check->{new_size_q3} = eval { int $sizes->quantile(3) } || 0; bkp => 0,
$check->{age} = time - $bpc_info[$i]->{startTime}; last_age => 0,
$check->{last_age} = sprintf("%.1f", ($check->{age}) / 84600); errors => 0,
} new_size => 0,
new_size_avg => 0,
new_size_median => 0,
new_size_q1 => 0,
new_size_q3 => 0
};
my @bpc_info = $bpc->BackupInfoRead($host);
my $sizes = new Statistics::Descriptive::Full;
if ( scalar( @bpc_info ) ){
foreach my $backup ( @bpc_info ) {
# Skip partial or active backups
next if ( $backup->{type} !~ m/^full|incr$/ );
# 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
$sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 );
$check->{bkp}++;
}
# 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};
$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 ?
my $toobig = "1";
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";
}
else {
$toobig = "0";
} }
else {
$toobig = "0";
}
# TOO SMALL ? # TOO SMALL ?
my $toosmall = "1"; 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 ) { 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 ) {
$toosmall = "1"; $toosmall = "1";
}
else {
$toosmall = "0";
} }
else {
$toosmall = "0";
}
my $sizeConsistency = "<strong>ANOMALOUS</strong>"; my $sizeConsistency = "<strong>ANOMALOUS</strong>";
my $sizeConsistencyColor = "Tomato"; my $sizeConsistencyColor = "Tomato";
# Get result # Get result
if ( $toobig or $toosmall ) { if ( $toobig or $toosmall ) {
$sizeConsistency = "<strong>ANOMALOUS</strong>"; $sizeConsistency = "<strong>ANOMALOUS</strong>";
$sizeConsistencyColor = "Tomato"; $sizeConsistencyColor = "Tomato";
}
else {
$sizeConsistency = "Normal";
$sizeConsistencyColor = "MediumSeaGreen";
} }
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