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) = @_;