11 |
my %bpc_hosts; |
my %bpc_hosts; |
12 |
my %hosts; |
my %hosts; |
13 |
my %smb_share_name; |
my %smb_share_name; |
14 |
|
my %rsync_share_name; |
15 |
|
|
16 |
foreach my $sheet (@{$oBook->{Worksheet}}) { |
foreach my $sheet (@{$oBook->{Worksheet}}) { |
17 |
if ($sheet->{Name} !~ m/(Instruments|sheet1)/i) { |
if ($sheet->{Name} !~ m/(Instruments|sheet1)/i) { |
85 |
print "$ip\trsync://${share}::${path}\n"; |
print "$ip\trsync://${share}::${path}\n"; |
86 |
|
|
87 |
$path =~ s/([ '])/\\$1/g; |
$path =~ s/([ '])/\\$1/g; |
88 |
|
push @{$rsync_share_name{$hostname}}, $path; |
89 |
|
|
90 |
print O qq` |
print O qq` |
91 |
# $ip $os |
# $ip $os |
92 |
\$Conf{XferMethod} = 'rsyncd'; |
\$Conf{XferMethod} = 'rsyncd'; |
93 |
\$Conf{RsyncShareName} = [ '$rsync_share' ]; |
\$Conf{RsyncShareName} = [ '$rsync_share' ]; |
94 |
\$Conf{BackupFilesOnly} = [ '$rsync_share' => "$path" ]; |
\$Conf{BackupFilesOnly} = [ '$rsync_share' => '`, join("','$rsync_share' => '", @{$rsync_share_name{$hostname}}), qq`' ]; |
95 |
`; |
`; |
96 |
|
|
97 |
} |
} |