4 use Spreadsheet::ParseExcel;
6 my $xls_file = shift @ARGV || die "usage: $0 file.xls\n";
8 my $oBook = Spreadsheet::ParseExcel::Workbook->Parse($xls_file);
16 foreach my $sheet (@{$oBook->{Worksheet}}) {
17 if ($sheet->{Name} !~ m/(Instruments|sheet1)/i) {
18 print "# skipped sheet ",$sheet->{Name},"\n";
21 for(my $i = $sheet->{MinRow} ; defined $sheet->{MaxRow} && $i <= $sheet->{MaxRow} ; $i++) {
23 my $id = $sheet->{Cells}[$i][3]->{Val} || next;
24 my $ime = $sheet->{Cells}[$i][4]->{Val} || next;
26 my $conf_name = lc($ime . '_' . $id);
27 $conf_name =~ s/\s+/_/g;
29 my $ip = $sheet->{Cells}[$i][16]->{Val} || next;
30 my $hostname = $sheet->{Cells}[$i][17]->Value || next;
31 my $os = $sheet->{Cells}[$i][19]->Value || next;
32 my $path = $sheet->{Cells}[$i][23]->Value || next;
33 my $share = $sheet->{Cells}[$i][24]->Value || next;
35 if ($ip !~ /\d+\.\d+\.\d+\.\d+/) {
36 print "# skipped $ip, $hostname, $os, $path, $share\n";
40 print "$ip hostname[$hostname] os[$os] path[$path] share[$share]\n";
42 my $drive = lc(substr($path,0,1));
45 if ($drive eq 'c' || $drive eq 'd') {
46 $rsync_share = $drive . 'Drive';
48 die "unknown drive '$drive' from path '$path'";
51 $path =~ s#^[cd]:\\#/#gi;
54 open(O, "> conf/${conf_name}.pl") || die "can't open conf/${conf_name}.pl: $!";
56 if ($os =~ m#(98|95|9x)#i) {
58 print "$ip\tsmb://${share}\n";
60 push @{$smb_share_name{$conf_name}}, $share;
63 # $conf_name on $hostname $ip, $os
64 \$Conf{XferMethod} = 'smb';
65 \$Conf{SmbHostName} = '$hostname';
66 \$Conf{SmbShareName} = [ '`,join("','", @{$smb_share_name{$conf_name}}),qq`' ];
70 $hosts{$ip} .= "\t$hostname" unless ($hosts{$ip} =~ m/$hostname/i);
72 $hosts{$ip} = "$ip\t$hostname";
77 my $t = shift || return;
78 return '[' . lc($t) . uc($t) . ']';
81 $path =~ s/([a-zA-z])/case_insesitive($1)/ge;
83 print "$ip\trsync://${share}::${path}\n";
85 $path =~ s/([ '])/\\$1/g;
86 push @{$rsync_share_name->{$conf_name}->{$rsync_share}}, $path;
88 my @shares = sort keys %{$rsync_share_name->{$conf_name}};
89 my $rsync_share_names = "'" . join("','", @shares) . "'";
90 my @backup_files_only;
91 foreach my $s (@shares) {
92 foreach my $p (@{$rsync_share_name->{$conf_name}->{$s}}) {
93 push @backup_files_only, "'$s' => '$p'";
97 # $conf_name on $hostname $ip, $os
98 \$Conf{XferMethod} = 'rsyncd';
99 \$Conf{RsyncShareName} = [ $rsync_share_names ];
100 \$Conf{BackupFilesOnly} = [ `, join(",", @backup_files_only), qq` ];
107 $bpc_hosts{$conf_name} = "$conf_name\t0\tasa";
109 $hosts{$ip} .= "\t$conf_name" unless ($hosts{$ip} =~ m/$conf_name/i);
110 $hosts{$ip} .= "\t$hostname" unless ($hosts{$ip} =~ m/$hostname/i);
112 $hosts{$ip} = "$ip\t$conf_name\t$hostname";
118 open(H, "> conf/hosts.backuppc") || die "hosts.backuppc $!";
119 foreach my $k (sort keys %bpc_hosts) {
120 print H $bpc_hosts{$k},"\n";
124 open(H, "> conf/hosts.add") || die "hosts.add $!";
125 foreach my $k (sort keys %hosts) {
126 print H $hosts{$k},"\n";