Subversion Repositories wimsdev

Rev

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

Rev 13732 Rev 13733
Line 8... Line 8...
8 
my $wimsconf="../../log/wims.conf";
 8 
my $wimsconf="../../log/wims.conf";
9 
my $wimsdefault="../../public_html/bases/sys/defaults.conf";
 9 
my $wimsdefault="../../public_html/bases/sys/defaults.conf";
10 
my %listcolor;
 10 
my %listcolor;
11 
open(IN, "$wimsconf");
 11 
open(IN, "$wimsconf");
12 
while (<IN>) {
 12 
while (<IN>) {
- 
 
 13 
  chomp;
13 
  for my $t ("ref_bgcolor","ref_button_bgcolor","ref_button_help_bgcolor" ) {
 14 
  for my $t ("ref_bgcolor","ref_button_bgcolor","ref_button_help_bgcolor" ) {
14 
    if (/$t/) { $listcolor{$t}=$_; $listcolor{$t} =~ s/$t=//;}
 15 
    if (/$t/) { $listcolor{$t}=$_; $listcolor{$t} =~ s/$t=//;}
15 
  }
 16 
  }
16 
};
 17 
};
17 
close(IN);
 18 
close(IN);