/[BackupPC]/trunk/xls2conf/xls2conf.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/xls2conf/xls2conf.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 184 by dpavlin, Fri Sep 23 13:41:31 2005 UTC revision 185 by dpavlin, Wed Oct 12 12:24:05 2005 UTC
# Line 59  foreach my $sheet (@{$oBook->{Worksheet} Line 59  foreach my $sheet (@{$oBook->{Worksheet}
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}) {
# Line 85  print O qq` Line 85  print O qq`
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                  }                  }
Legend:
Removed from v.184  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.26