From 5ddcf81722aa091f83bf8e30eca25fcc267bcbc5 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Thu, 19 Sep 2019 14:27:24 +0200
Subject: [PATCH] add comments

---
 check_size_consistency.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/check_size_consistency.pl b/check_size_consistency.pl
index 19fd3a6..d3b9f86 100644
--- a/check_size_consistency.pl
+++ b/check_size_consistency.pl
@@ -11,8 +11,10 @@ my (undef,undef,$bkpuid,$bkpgid) = getpwnam('backuppc');
 setuid($bkpuid) if ($uid ne $bkpuid);
 setgid($bkpgid) if ($gid ne $bkpgid);
 
+# Precise the host to check
 my $host = $ARGV[0];
 
+# Get values
 my $bpc = BackupPC::Lib->new();
 my @backups = $bpc->BackupInfoRead($host);
 my $mainConf = $bpc->ConfigDataRead();
@@ -55,6 +57,7 @@ else {
 $lastXferErrors = $backups[@backups-1]{xferErrs} if ( @backups );
 $maxErrors = $conf->{MaxXferError} if (defined $conf->{MaxXferError});
 
+# Print results 
 print<<"EOF";
 Usage: $0 <host>