/[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 132 by dpavlin, Fri Sep 23 10:13:49 2005 UTC revision 133 by dpavlin, Fri Sep 23 10:16:10 2005 UTC
# Line 13  my %hosts; Line 13  my %hosts;
13  my %smb_share_name;  my %smb_share_name;
14    
15  foreach my $sheet (@{$oBook->{Worksheet}}) {  foreach my $sheet (@{$oBook->{Worksheet}}) {
16          if ($sheet->{Name} !~ m/Instruments/i) {          if ($sheet->{Name} !~ m/(Instruments|sheet1)/i) {
17  #               print "# skipped sheet ",$sheet->{Name},"\n";                  print "# skipped sheet ",$sheet->{Name},"\n";
18                  next;                  next;
19          }          }
20          for(my $i = $sheet->{MinRow} ; defined $sheet->{MaxRow} && $i <= $sheet->{MaxRow} ; $i++) {          for(my $i = $sheet->{MinRow} ; defined $sheet->{MaxRow} && $i <= $sheet->{MaxRow} ; $i++) {
# Line 54  foreach my $sheet (@{$oBook->{Worksheet} Line 54  foreach my $sheet (@{$oBook->{Worksheet}
54    
55                  open(O, "> conf/${conf_name}.pl") || die "can't open conf/${conf_name}.pl: $!";                  open(O, "> conf/${conf_name}.pl") || die "can't open conf/${conf_name}.pl: $!";
56    
57                  if ($os =~ m#(98|95)#) {                  if ($os =~ m#(98|95|9x)#i) {
58    
59                          print "$ip\tsmb://${share}\n";                          print "$ip\tsmb://${share}\n";
60    
Legend:
Removed from v.132  
changed lines
  Added in v.133
  ViewVC Help
Powered by ViewVC 1.1.26