|
|
@ -8,7 +8,7 @@ use JSON; |
|
|
|
# We need to switch to backuppc UID/GID |
|
|
|
# We need to switch to backuppc UID/GID |
|
|
|
my $uid = getuid(); |
|
|
|
my $uid = getuid(); |
|
|
|
my $gid = getgid(); |
|
|
|
my $gid = getgid(); |
|
|
|
my (undef,undef,$bkpuid,$bkpgid) = getpwnam(‘backuppc’); |
|
|
|
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); |
|
|
|
|
|
|
|
|
|
|
@ -56,22 +56,22 @@ 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}); |
|
|
|
if ($what eq ‘errors’){ |
|
|
|
if ($what eq 'errors'){ |
|
|
|
print $lastXferErrors; |
|
|
|
print $lastXferErrors; |
|
|
|
} |
|
|
|
} |
|
|
|
elsif ($what eq ‘max_errors’){ |
|
|
|
elsif ($what eq 'max_errors'){ |
|
|
|
print $maxErrors; |
|
|
|
print $maxErrors; |
|
|
|
} |
|
|
|
} |
|
|
|
elsif ($what eq ‘age’){ |
|
|
|
elsif ($what eq 'age'){ |
|
|
|
print $lastAge; |
|
|
|
print $lastAge; |
|
|
|
} |
|
|
|
} |
|
|
|
elsif ($what eq ‘size’){ |
|
|
|
elsif ($what eq 'size'){ |
|
|
|
print $fullSize; |
|
|
|
print $fullSize; |
|
|
|
} |
|
|
|
} |
|
|
|
elsif ($what eq ‘duration’){ |
|
|
|
elsif ($what eq 'duration'){ |
|
|
|
print $fullDur; |
|
|
|
print $fullDur; |
|
|
|
} |
|
|
|
} |
|
|
|
elsif ($what eq ‘notify’){ |
|
|
|
elsif ($what eq 'notify'){ |
|
|
|
print $conf->{EMailNotifyOldBackupDays}; |
|
|
|
print $conf->{EMailNotifyOldBackupDays}; |
|
|
|
} |
|
|
|
} |
|
|
|
else{ |
|
|
|
else{ |
|
|
|