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