/[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 133 by dpavlin, Fri Sep 23 10:16:10 2005 UTC revision 135 by dpavlin, Fri Sep 23 13:41:31 2005 UTC
# Line 11  my $oBook = Spreadsheet::ParseExcel::Wor Line 11  my $oBook = Spreadsheet::ParseExcel::Wor
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) {
# Line 84  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;
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                  }                  }
Legend:
Removed from v.133  
changed lines
  Added in v.135
  ViewVC Help
Powered by ViewVC 1.1.26