|
|
@ -2,6 +2,7 @@ |
|
|
|
use lib "/usr/share/BackupPC/lib"; |
|
|
|
use lib "/usr/share/BackupPC/lib"; |
|
|
|
use BackupPC::Lib; |
|
|
|
use BackupPC::Lib; |
|
|
|
use BackupPC::CGI::Lib; |
|
|
|
use BackupPC::CGI::Lib; |
|
|
|
|
|
|
|
use POSIX; |
|
|
|
use JSON; |
|
|
|
use JSON; |
|
|
|
|
|
|
|
|
|
|
|
# We need to switch to backuppc UID/GID |
|
|
|
# We need to switch to backuppc UID/GID |
|
|
@ -11,7 +12,6 @@ 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 host |
|
|
|
|
|
|
|
my $host = $ARGV[0]; |
|
|
|
my $host = $ARGV[0]; |
|
|
|
|
|
|
|
|
|
|
|
my $bpc = BackupPC::Lib->new(); |
|
|
|
my $bpc = BackupPC::Lib->new(); |
|
|
@ -57,7 +57,6 @@ $lastXferErrors = $backups[@backups-1]{xferErrs} if ( @backups ); |
|
|
|
$maxErrors = $conf->{MaxXferError} if (defined $conf->{MaxXferError}); |
|
|
|
$maxErrors = $conf->{MaxXferError} if (defined $conf->{MaxXferError}); |
|
|
|
|
|
|
|
|
|
|
|
print<<"EOF"; |
|
|
|
print<<"EOF"; |
|
|
|
Usage: $0 <host> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Full Size of last backup : $fullSize |
|
|
|
Full Size of last backup : $fullSize |
|
|
|
EOF |
|
|
|
EOF |
|
|
|