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"; |