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