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

Setup ViewCheck

Browse Source
master
Heuzef 5 years ago
parent a07427c0fc
commit 385fc2e1e9
1 changed files with 100 additions and 98 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. 198
      ViewCheck.pm

198
ViewCheck.pm
Unescape View File

@ -30,116 +30,118 @@ use Getopt::Long;
use Statistics::Descriptive; use Statistics::Descriptive;
use Data::Dumper; use Data::Dumper;
my $host = undef; my $host = "localhost";
GetOptions( sub action
"host=s" => \$host {
);
# We need to switch to backuppc UID/GID
# We need to switch to backuppc UID/GID my $uid = getuid();
my $uid = getuid(); my $gid = getgid();
my $gid = getgid(); my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc');
my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc'); setuid($bkpuid) if ($uid ne $bkpuid);
setuid($bkpuid) if ($uid ne $bkpuid); setgid($bkpgid) if ($gid ne $bkpgid);
setgid($bkpgid) if ($gid ne $bkpgid);
my $bpc = BackupPC::Lib->new();
my $bpc = BackupPC::Lib->new(); my $mainConf = $bpc->ConfigDataRead();
my $mainConf = $bpc->ConfigDataRead(); my $json = {};
my $json = {};
if ( $host ) {
if ( $host ) { my $hostConf = $bpc->ConfigDataRead($host);
my $hostConf = $bpc->ConfigDataRead($host); my $conf = { %$mainConf, %$hostConf };
my $conf = { %$mainConf, %$hostConf }; my $age = -1;
my $age = -1; $json = {
$json = { 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$/ ); if ( $backup->{type} eq "full" ) {
if ( $backup->{type} eq "full" ) { $last_full_num = $backup->{num};
$last_full_num = $backup->{num}; }
# 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 );
$json->{bkp}++;
} }
# 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 );
$json->{bkp}++;
}
# Ignore the last backup if it's not full or incr (which means it's either partial or active) # 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; my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2;
$json->{errors} = $bpc_info[$i]->{xferErrs}; $json->{errors} = $bpc_info[$i]->{xferErrs};
$json->{new_size} = $bpc_info[$i]->{sizeNew}; $json->{new_size} = $bpc_info[$i]->{sizeNew};
$json->{new_size_avg} = int $sizes->mean; $json->{new_size_avg} = int $sizes->mean;
$json->{new_size_median} = int $sizes->median; $json->{new_size_median} = int $sizes->median;
$json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; $json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0;
$json->{new_size_q3} = eval { int $sizes->quantile(3) } || 0; $json->{new_size_q3} = eval { int $sizes->quantile(3) } || 0;
$json->{age} = time - $bpc_info[$i]->{startTime}; $json->{age} = time - $bpc_info[$i]->{startTime};
$json->{last_age} = sprintf("%.1f", ($json->{age}) / 84600); $json->{last_age} = sprintf("%.1f", ($json->{age}) / 84600);
}
} }
}
else { else {
print<<"EOF"; print<<"EOF";
Usage: $0 --host=<host> Usage: $0 --host=<host>
EOF EOF
} }
# Print results # Print results
print("\n----------------\n"); print("\n----------------\n");
print("Last Backup : $json->{last_age}"); print("Last Backup : $json->{last_age}");
print("\n"); print("\n");
print("Errors : $json->{errors}"); print("Errors : $json->{errors}");
print("\n"); print("\n");
print("Size Consistency : "); print("Size Consistency : ");
# TOO BIG ? # TOO BIG ?
my $toobig = "1"; my $toobig = "1";
if ( $json->{new_size} > ($json->{new_size_q3} + $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} > $json->{new_size_avg} * 6 ) { if ( $json->{new_size} > ($json->{new_size_q3} + $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} > $json->{new_size_avg} * 6 ) {
$toobig = "1"; $toobig = "1";
}
else {
$toobig = "0";
} }
else {
$toobig = "0";
}
# TOO SMALL ? # TOO SMALL ?
my $toosmall = "1"; my $toosmall = "1";
if ( $json->{new_size} < ($json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} < $json->{new_size_avg} / 3 ) { if ( $json->{new_size} < ($json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1}) * 1.5 or $json->{new_size} < $json->{new_size_avg} / 3 ) {
$toosmall = "1"; $toosmall = "1";
}
else {
$toosmall = "0";
} }
else {
$toosmall = "0";
}
# Print result # Print result
if ( $toobig or $toosmall ) { if ( $toobig or $toosmall ) {
print("ANOMALOUS"); print("ANOMALOUS");
}
else {
print("Normal");
} }
else { print("\n");
print("Normal"); print("Random file : ");
}
print("\n"); # Random file
print("Random file : ");
# Random file print("Random file");
print("\n");
print("\n----------------\n");
print("Random file"); exit(0);
print("\n");
print("\n----------------\n");
exit(0); }
1;

Write Preview
Loading…
Cancel
Save