/[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 131 by dpavlin, Mon Jul 11 16:22:50 2005 UTC revision 132 by dpavlin, Fri Sep 23 10:13:49 2005 UTC
# Line 52  foreach my $sheet (@{$oBook->{Worksheet} Line 52  foreach my $sheet (@{$oBook->{Worksheet}
52                  $path =~ s#^[cd]:\\#/#gi;                  $path =~ s#^[cd]:\\#/#gi;
53                  $path =~ s#\\#/#g;                  $path =~ s#\\#/#g;
54    
55                  open(O, "> conf/${conf_name}.pl") || die "can't open ${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)#) {
58    
# Line 74  print O qq` Line 74  print O qq`
74                          }                          }
75                  } else {                  } else {
76    
77                            sub case_insesitive {
78                                    my $t = shift || return;
79                                    return '[' . lc($t) . uc($t) . ']';
80                            }
81    
82                            $path =~ s/([a-zA-z])/case_insesitive($1)/ge;
83    
84                          print "$ip\trsync://${share}::${path}\n";                          print "$ip\trsync://${share}::${path}\n";
85    
86                          $path =~ s/([ '])/\\$1/g;                          $path =~ s/([ '])/\\$1/g;
Legend:
Removed from v.131  
changed lines
  Added in v.132
  ViewVC Help
Powered by ViewVC 1.1.26