59 |
|
|
60 |
print "$ip\tsmb://${share}\n"; |
print "$ip\tsmb://${share}\n"; |
61 |
|
|
62 |
push @{$smb_share_name{$hostname}}, $share; |
push @{$smb_share_name{$conf_name}}, $share; |
63 |
|
|
64 |
print O qq` |
print O qq` |
65 |
# $ip $os |
# $conf_name on $hostname $ip, $os |
66 |
\$Conf{XferMethod} = 'smb'; |
\$Conf{XferMethod} = 'smb'; |
67 |
\$Conf{SmbHostName} = '$hostname'; |
\$Conf{SmbHostName} = '$hostname'; |
68 |
\$Conf{SmbShareName} = [ '`,join("','", @{$smb_share_name{$hostname}}),qq`' ]; |
\$Conf{SmbShareName} = [ '`,join("','", @{$smb_share_name{$conf_name}}),qq`' ]; |
69 |
`; |
`; |
70 |
|
|
71 |
if ($hosts{$ip}) { |
if ($hosts{$ip}) { |
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; |
push @{$rsync_share_name{$conf_name}}, $path; |
89 |
|
|
90 |
print O qq` |
print O qq` |
91 |
# $ip $os |
# $conf_name on $hostname $ip, $os |
92 |
\$Conf{XferMethod} = 'rsyncd'; |
\$Conf{XferMethod} = 'rsyncd'; |
93 |
\$Conf{RsyncShareName} = [ '$rsync_share' ]; |
\$Conf{RsyncShareName} = [ '$rsync_share' ]; |
94 |
\$Conf{BackupFilesOnly} = [ '$rsync_share' => '`, join("','$rsync_share' => '", @{$rsync_share_name{$hostname}}), qq`' ]; |
\$Conf{BackupFilesOnly} = [ '$rsync_share' => '`, join("','$rsync_share' => '", @{$rsync_share_name{$conf_name}}), qq`' ]; |
95 |
`; |
`; |
96 |
|
|
97 |
} |
} |