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

add comments

Browse Source
master
Heuzef 5 years ago
parent ab2eb8fa19
commit 5ddcf81722
1 changed files with 3 additions and 0 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. 3
      check_size_consistency.pl

3
check_size_consistency.pl
Unescape View File

@ -11,8 +11,10 @@ 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);
# Precise the host to check
my $host = $ARGV[0]; my $host = $ARGV[0];
# Get values
my $bpc = BackupPC::Lib->new(); my $bpc = BackupPC::Lib->new();
my @backups = $bpc->BackupInfoRead($host); my @backups = $bpc->BackupInfoRead($host);
my $mainConf = $bpc->ConfigDataRead(); my $mainConf = $bpc->ConfigDataRead();
@ -55,6 +57,7 @@ else {
$lastXferErrors = $backups[@backups-1]{xferErrs} if ( @backups ); $lastXferErrors = $backups[@backups-1]{xferErrs} if ( @backups );
$maxErrors = $conf->{MaxXferError} if (defined $conf->{MaxXferError}); $maxErrors = $conf->{MaxXferError} if (defined $conf->{MaxXferError});
# Print results
print<<"EOF"; print<<"EOF";
Usage: $0 <host> Usage: $0 <host>

Write Preview
Loading…
Cancel
Save