Subversion Repositories wimsdev

Rev

Rev 13084 | Rev 13733 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13084 Rev 13732
Line 2... Line 2...
2 
 
 2 
 
3 
use strict "vars";
 3 
use strict "vars";
4 
use strict "subs";
 4 
use strict "subs";
5 
use locale;
 5 
use locale;
6 
use warnings;
 6 
use warnings;
7 
$/ = undef;
 - 
 
8 
 
 7 
 
- 
 
 8 
my $wimsconf="../../log/wims.conf";
- 
 
 9 
my $wimsdefault="../../public_html/bases/sys/defaults.conf";
- 
 
 10 
my %listcolor;
- 
 
 11 
open(IN, "$wimsconf");
- 
 
 12 
while (<IN>) {
- 
 
 13 
  for my $t ("ref_bgcolor","ref_button_bgcolor","ref_button_help_bgcolor" ) {
- 
 
 14 
    if (/$t/) { $listcolor{$t}=$_; $listcolor{$t} =~ s/$t=//;}
- 
 
 15 
  }
- 
 
 16 
};
- 
 
 17 
close(IN);
- 
 
 18 
open(IN, "$wimsdefault");
- 
 
 19 
while (<IN>) {
- 
 
 20 
  for  my $t ("ref_bgcolor","ref_button_bgcolor","ref_button_help_bgcolor" ) {
- 
 
 21 
    if (/$t/ && !$listcolor{$t}) {
- 
 
 22 
      $listcolor{$t}=$_; $listcolor{$t} =~ s/DF_$t=//;}
- 
 
 23 
  }
- 
 
 24 
};
- 
 
 25 
close(IN);
- 
 
 26 
 
- 
 
 27 
$/ = undef;
9 
##{
 28 
##{
10 
##  last if (/^$/);
 29 
##  last if (/^$/);
11 
##  if  (/^(.*)$/)   { $dir=$1 }
 30 
##  if  (/^(.*)$/)   { $dir=$1 }
12 
##} ;
 31 
##};
13 
 
 32 
 
14 
my $char="---";
 33 
my $char="---";
15 
 
 34 
 
16 
for my $f (glob("*/*.css.template")) {
 35 
for my $f (glob("*/*.css.template")) {
17 
  print "\nGeneration de $f";
 36 
  print "\nGeneration de $f";
18 
  my $f1= $f ; $f1 =~ s/.template// ; my $f2 = "$f1.tmp.css" ;
 37 
  my $f1= $f; $f1 =~ s/.template//; my $f2 = "$f1.tmp.css";
19 
  my @f3=split("/",$f1);
 38 
  my @f3=split("/",$f1);
20 
  my $f3=$f3[0];
 39 
  my $f3=$f3[0];
21 
  my $TEXT ="/*! generated from $f - do not modify directly */\n" ;
 40 
  my $TEXT ="/*! generated from $f - do not modify directly */\n";
22 
  my %colors;
 41 
  my %colors;
23 
  open(IN,"$f");
 42 
  open(IN,"$f");
24 
  while (<IN> ) {
 43 
  while (<IN> ) {
25 
   my $line=$_ ;
 44 
   my $line=$_;
26 
   $line =~ s/#[^\n]+//g ;
 45 
   $line =~ s/#[^\n]+//g;
27 
   $line =~ s/--- (.*) ---/treate($1)/ge ;
 46 
   $line =~ s/--- (.*) ---/treate($1)/ge;
28 
   $TEXT .= $line ;
 47 
   $TEXT .= $line;
29 
 }
 48 
 }
30 
 close IN ;
 49 
 close IN;
31 
 $TEXT .= "\n";
 50 
 $TEXT .= "\n";
32 
 # lecture de oefcolors
 51 
 # lecture de oefcolors
33 
 my $fc="$f3/oefcolors";
 52 
 my $fc="$f3/oefcolors";
34 
 if (!(-e $fc)) { $fc="oefcolors" };
 53 
 if (!(-e $fc)) { $fc="oefcolors" };
35 
 open(INN, "$fc");
 54 
 open(INN, "$fc");
Line 42... Line 61...
42 
 my $colors=\%colors;
 61 
 my $colors=\%colors;
43 
 for my $k (keys %{$colors}) {
 62 
 for my $k (keys %{$colors}) {
44 
   $TEXT =~ s/color: *$k/color:$colors{$k}/g;
 63 
   $TEXT =~ s/color: *$k/color:$colors{$k}/g;
45 
 }
 64 
 }
46 
 
 65 
 
47 
 out("$f2" ,$TEXT) ;
 66 
 out("$f2" ,$TEXT);
48 
 $/ = undef;
 67 
 $/ = undef;
49 
 system("java -jar yuicompressor $f2 -o $f1 -v; rm $f2");
 68 
 system("java -jar yuicompressor $f2 -o $f1 -v; rm $f2");
50 
}
 69 
}
51 
 
 70 
 
52 
sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2};
 71 
sub t { my ($c1,$c2,$L)=@_; $L->{$c1}=$c2};
53 
 
 72 
 
54 
sub treate { my ($c)= @_ ;
 73 
sub treate { my ($c)= @_;
55 
  return if ((!$c) || ($c =~ /#/));
 74 
  return if ((!$c) || ($c =~ /#/));
56 
  # print "\ntraitement du fichier $c";
 75 
  # print "\ntraitement du fichier $c";
57 
  open(INN, $c);
 76 
  open(INN, $c);
58 
  my $text = <INN> ;
 77 
  my $text = <INN>;
59 
  close(INN) ;
 78 
  close(INN);
- 
 
 79 
  for my $a (keys %listcolor){
- 
 
 80 
    $text=~ s/wims_$a/$listcolor{$a}/g;
- 
 
 81 
  }
60 
  "\n/*! from $c */\n$text" ;
 82 
  "\n/*! from $c */\n$text";
61 
};
 83 
};
62 
 
 84 
 
63 
sub out { my ($bloc, $text) = @_ ;
 85 
sub out { my ($bloc, $text) = @_;
64 
  open  (OUT, ">$bloc") || warn "Creation du bloc $bloc impossible";
 86 
  open  (OUT, ">$bloc") || warn "Creation du bloc $bloc impossible";
65 
  print OUT $text ; close OUT ;
 87 
  print OUT $text; close OUT;
66 
}
 88 
}