Rev 13737 | Rev 15146 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13737 | Rev 13738 | ||
|---|---|---|---|
| Line 3... | Line 3... | ||
| 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 | 7 | ||
| - | 8 | =comment css vars |
|
| 8 | my $wimsconf="../../log/wims.conf"; |
9 | my $wimsconf="../../log/wims.conf"; |
| 9 | my $wimsdefault="../../public_html/bases/sys/defaults.conf"; |
10 | my $wimsdefault="../../public_html/bases/sys/defaults.conf"; |
| 10 | my %listcolor; |
11 | my %listcolor; |
| 11 | open(IN, "$wimsconf"); |
12 | open(IN, "$wimsconf"); |
| 12 | while (<IN>) { |
13 | while (<IN>) { |
| Line 22... | Line 23... | ||
| 22 | if (/$t/ && !$listcolor{$t}) { |
23 | if (/$t/ && !$listcolor{$t}) { |
| 23 | $listcolor{$t}=$_; $listcolor{$t} =~ s/DF_$t=//;} |
24 | $listcolor{$t}=$_; $listcolor{$t} =~ s/DF_$t=//;} |
| 24 | } |
25 | } |
| 25 | }; |
26 | }; |
| 26 | close(IN); |
27 | close(IN); |
| - | 28 | =cut |
|
| 27 | 29 | ||
| 28 | $/ = undef; |
30 | $/ = undef; |
| 29 | ##{ |
31 | ##{ |
| 30 | ## last if (/^$/); |
32 | ## last if (/^$/); |
| 31 | ## if (/^(.*)$/) { $dir=$1 } |
33 | ## if (/^(.*)$/) { $dir=$1 } |
| Line 75... | Line 77... | ||
| 75 | return if ((!$c) || ($c =~ /#/)); |
77 | return if ((!$c) || ($c =~ /#/)); |
| 76 | # print "\ntraitement du fichier $c"; |
78 | # print "\ntraitement du fichier $c"; |
| 77 | open(INN, $c); |
79 | open(INN, $c); |
| 78 | my $text = <INN>; |
80 | my $text = <INN>; |
| 79 | close(INN); |
81 | close(INN); |
| - | 82 | ||
| - | 83 | =comment css vars |
|
| 80 | for my $a (keys %listcolor){ |
84 | for my $a (keys %listcolor){ |
| 81 | $text=~ s/__wims_$a/$listcolor{$a}/g; |
85 | $text=~ s/__wims_$a/$listcolor{$a}/g; |
| 82 | } |
86 | } |
| - | 87 | =cut |
|
| - | 88 | ||
| 83 | "\n/*! from $c */\n$text"; |
89 | "\n/*! from $c */\n$text"; |
| 84 | }; |
90 | }; |
| 85 | 91 | ||
| 86 | sub out { my ($bloc, $text) = @_; |
92 | sub out { my ($bloc, $text) = @_; |
| 87 | open (OUT, ">$bloc") || warn "Creation du bloc $bloc impossible"; |
93 | open (OUT, ">$bloc") || warn "Creation du bloc $bloc impossible"; |