Subversion Repositories wimsdev

Rev

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

Rev 13733 Rev 13737
Line 76... Line 76...
76 
  # print "\ntraitement du fichier $c";
 76 
  # print "\ntraitement du fichier $c";
77 
  open(INN, $c);
 77 
  open(INN, $c);
78 
  my $text = <INN>;
 78 
  my $text = <INN>;
79 
  close(INN);
 79 
  close(INN);
80 
  for my $a (keys %listcolor){
 80 
  for my $a (keys %listcolor){
81 
    $text=~ s/wims_$a/$listcolor{$a}/g;
 81 
    $text=~ s/__wims_$a/$listcolor{$a}/g;
82 
  }
 82 
  }
83 
  "\n/*! from $c */\n$text";
 83 
  "\n/*! from $c */\n$text";
84 
};
 84 
};
85 
 
 85 
 
86 
sub out { my ($bloc, $text) = @_;
 86 
sub out { my ($bloc, $text) = @_;