From ca9cb617528d0c99bc5842edbd66a002e3606a45 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Fri, 20 Sep 2019 12:45:49 +0200
Subject: [PATCH] Call external script

---
 Check.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Check.pm b/Check.pm
index 82f8557..7f97d5a 100644
--- a/Check.pm
+++ b/Check.pm
@@ -129,6 +129,7 @@ sub action
 	    ($shortErr = $Status{$host}{error}) =~ s/(.{48}).*/$1.../;
 	    $shortErr = " ($shortErr)";
 	}
+  my $sizeConsistency = `/bin/perl check_size_consistency.pl --host=localhost`;
 
         $str = <<EOF;
 <tr$reasonHilite><td class="border">${HostLink($host)}</td>
@@ -136,7 +137,7 @@ sub action
     <td align="center" class="border" style="color:Gray">$incrAge</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">???</td>
+    <td align="center" class="border">$sizeConsistency</td>
     <td align="center" class="border">???</td>
 EOF
         if ( @Backups == 0 ) {