Subversion Repositories wimsdev

Rev

Rev 15146 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15146 Rev 16019
Line 33... Line 33...
33 
##  if  (/^(.*)$/)   { $dir=$1 }
 33 
##  if  (/^(.*)$/)   { $dir=$1 }
34 
##};
 34 
##};
35 
 
 35 
 
36 
my $char="---";
 36 
my $char="---";
37 
 
 37 
 
38 
for my $f (glob("*/*.css.template")) {
 38 
for my $f (glob("*/*.css.template"), glob("*/*/*.css.template")) {
39 
  print "\nGeneration de $f";
 39 
  print "\nGeneration de $f";
40 
  my $f1= $f; $f1 =~ s/.template//; my $f2 = "$f1.tmp.css";
 40 
  my $f1= $f; $f1 =~ s/.template//; my $f2 = "$f1.tmp.css";
41 
  my @f3=split("/",$f1);
 41 
  my @f3=split("/",$f1);
42 
  my $f3=$f3[0];
 42 
  my $f3=$f3[0];
43 
  my $TEXT ="/*! generated from $f - do not modify directly */\n";
 43 
  my $TEXT ="/*! generated from $f - do not modify directly */\n";