|
|
@ -12,8 +12,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(); |
|
|
|