Subversion Repositories wimsdev

Rev

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

Rev 13738 Rev 15146
Line 55... Line 55...
55 
 my $fc="$f3/oefcolors";
 55 
 my $fc="$f3/oefcolors";
56 
 if (!(-e $fc)) { $fc="oefcolors" };
 56 
 if (!(-e $fc)) { $fc="oefcolors" };
57 
 open(INN, "$fc");
 57 
 open(INN, "$fc");
58 
 $/ = "\n";
 58 
 $/ = "\n";
59 
 while(<INN>) {
 59 
 while(<INN>) {
60 
  if( /!set (\w+)=(\w+)/) { $colors{$1}=$2;}
 60 
  if( /!set (\w+)=(#*\w+)/) { $colors{$1}=$2;}
61 
 }
 61 
 }
62 
 close INN;
 62 
 close INN;
63 
 ## remplacement des couleurs oef
 63 
 ## remplacement des couleurs oef
64 
 my $colors=\%colors;
 64 
 my $colors=\%colors;
65 
 for my $k (keys %{$colors}) {
 65 
 for my $k (keys %{$colors}) {
66 
   $TEXT =~ s/color: *$k/color:$colors{$k}/g;
 66 
   $TEXT =~ s/\*-\* *$k/$colors{$k}/g;
67 
 }
 67 
 }
68 
 
 68 
 
69 
 out("$f2" ,$TEXT);
 69 
 out("$f2" ,$TEXT);
70 
 $/ = undef;
 70 
 $/ = undef;
71 
 system("java -jar yuicompressor $f2 -o $f1 -v; rm $f2");
 71 
 system("java -jar yuicompressor $f2 -o $f1 -v; rm $f2");