From 385fc2e1e9f7805bb057b3021ff3e6ee1aabcb4a Mon Sep 17 00:00:00 2001 From: Heuzef Date: Fri, 27 Sep 2019 11:56:43 +0200 Subject: [PATCH] Setup ViewCheck --- ViewCheck.pm | 198 ++++++++++++++++++++++++++++++----------------------------- 1 file changed, 100 insertions(+), 98 deletions(-) diff --git a/ViewCheck.pm b/ViewCheck.pm index d126db3..f8813ce 100644 --- a/ViewCheck.pm +++ b/ViewCheck.pm @@ -30,116 +30,118 @@ use Getopt::Long; use Statistics::Descriptive; use Data::Dumper; -my $host = undef; - -GetOptions( - "host=s" => \$host -); - -# We need to switch to backuppc UID/GID -my $uid = getuid(); -my $gid = getgid(); -my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc'); -setuid($bkpuid) if ($uid ne $bkpuid); -setgid($bkpgid) if ($gid ne $bkpgid); - -my $bpc = BackupPC::Lib->new(); -my $mainConf = $bpc->ConfigDataRead(); -my $json = {}; - -if ( $host ) { - my $hostConf = $bpc->ConfigDataRead($host); - my $conf = { %$mainConf, %$hostConf }; - my $age = -1; - $json = { - 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$/ ); - if ( $backup->{type} eq "full" ) { - $last_full_num = $backup->{num}; +my $host = "localhost"; + +sub action +{ + + # We need to switch to backuppc UID/GID + my $uid = getuid(); + my $gid = getgid(); + my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc'); + setuid($bkpuid) if ($uid ne $bkpuid); + setgid($bkpgid) if ($gid ne $bkpgid); + + my $bpc = BackupPC::Lib->new(); + my $mainConf = $bpc->ConfigDataRead(); + my $json = {}; + + if ( $host ) { + my $hostConf = $bpc->ConfigDataRead($host); + my $conf = { %$mainConf, %$hostConf }; + my $age = -1; + $json = { + 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$/ ); + if ( $backup->{type} eq "full" ) { + $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) - my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; - - $json->{errors} = $bpc_info[$i]->{xferErrs}; - $json->{new_size} = $bpc_info[$i]->{sizeNew}; - $json->{new_size_avg} = int $sizes->mean; - $json->{new_size_median} = int $sizes->median; - $json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; - $json->{new_size_q3} = eval { int $sizes->quantile(3) } || 0; - $json->{age} = time - $bpc_info[$i]->{startTime}; - $json->{last_age} = sprintf("%.1f", ($json->{age}) / 84600); + # 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; + + $json->{errors} = $bpc_info[$i]->{xferErrs}; + $json->{new_size} = $bpc_info[$i]->{sizeNew}; + $json->{new_size_avg} = int $sizes->mean; + $json->{new_size_median} = int $sizes->median; + $json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; + $json->{new_size_q3} = eval { int $sizes->quantile(3) } || 0; + $json->{age} = time - $bpc_info[$i]->{startTime}; + $json->{last_age} = sprintf("%.1f", ($json->{age}) / 84600); + } } -} -else { - print<<"EOF"; + else { + print<<"EOF"; -Usage: $0 --host= + Usage: $0 --host= -EOF -} + EOF + } -# Print results -print("\n----------------\n"); -print("Last Backup : $json->{last_age}"); -print("\n"); -print("Errors : $json->{errors}"); -print("\n"); -print("Size Consistency : "); - -# TOO BIG ? -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 ) { - $toobig = "1"; + # Print results + print("\n----------------\n"); + print("Last Backup : $json->{last_age}"); + print("\n"); + print("Errors : $json->{errors}"); + print("\n"); + print("Size Consistency : "); + + # TOO BIG ? + 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 ) { + $toobig = "1"; + } + else { + $toobig = "0"; } -else { - $toobig = "0"; -} -# TOO SMALL ? -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 ) { - $toosmall = "1"; + # TOO SMALL ? + 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 ) { + $toosmall = "1"; + } + else { + $toosmall = "0"; } -else { - $toosmall = "0"; -} -# Print result -if ( $toobig or $toosmall ) { - print("ANOMALOUS"); + # Print result + if ( $toobig or $toosmall ) { + print("ANOMALOUS"); + } + else { + print("Normal"); } -else { - print("Normal"); -} -print("\n"); -print("Random file : "); + print("\n"); + print("Random file : "); + + # Random file -# Random file + print("Random file"); + print("\n"); + print("\n----------------\n"); -print("Random file"); -print("\n"); -print("\n----------------\n"); + exit(0); -exit(0); +} +1;