my %bpc_hosts;
my %hosts;
my %smb_share_name;
+my %rsync_share_name;
foreach my $sheet (@{$oBook->{Worksheet}}) {
if ($sheet->{Name} !~ m/(Instruments|sheet1)/i) {
print "$ip\trsync://${share}::${path}\n";
$path =~ s/([ '])/\\$1/g;
+ push @{$rsync_share_name{$hostname}}, $path;
print O qq`
# $ip $os
\$Conf{XferMethod} = 'rsyncd';
\$Conf{RsyncShareName} = [ '$rsync_share' ];
-\$Conf{BackupFilesOnly} = [ '$rsync_share' => "$path" ];
+\$Conf{BackupFilesOnly} = [ '$rsync_share' => '`, join("','$rsync_share' => '", @{$rsync_share_name{$hostname}}), qq`' ];
`;
}