Include Size Consistency check

Check.pm

@@ -141,12 +141,90 @@ if ( $Conf{BackupsDisable} == 1 ) {
 	    $shortErr = " ($shortErr)";
 	}
 
+# Size Consistency
+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}++;
+    }
+
+    # 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);
+  }
+}
+
+# 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";
+}
+
+# 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";
+}
+
+my $sizeConsistency = "ANOMALOUS";
+
+# Get result
+if ( $toobig or $toosmall ) {
+  $sizeConsistency = "ANOMALOUS";
+  }
+else {
+  $sizeConsistency = "Normal";
+}
+
 # Show summary
         $str = <<EOF;
 <tr$reasonHilite><td class="border">${HostLink($host)}</td>
     <td align="center" class="border" style="color:$lastAgeColor;">$lastAge</td>
     <td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td>
-    <td align="center" class="border">sizeConsistency</td>
+    <td align="center" class="border">$sizeConsistency</td>
     <td align="center" class="border"><a href="#" target="_blank">random-file.txt</a></td>
 EOF