Subversion Repositories wimsdev

Rev

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