I'm trying to read in some custom colors though a configuration file. But they don't seem to work, here's what I have so far.
sub skin {
if ($settings{'skin'} ne 'default') {
if (-e("./$settings{'skin'}/skin.ini")){
logit("Skinning file exists");
$sk=1;
} else {
logit("Skin Files isn't here");
goto DefaultSkin;
}
if ($sk) {
open(TMP,
"./$settings{'skin'}/skin.ini");
@skin = <TMP>;
close(TMP);
foreach $line (@skin) {
if ($line =~
/(.*?)=(.*?)$/i) {
$skin{$1}=$2;
}
logit("\$skin{$1}=$skin{$1}");
}
}
} else {
DefaultSkin:
$skin{urlcolor} = 0xFF0000;
$skin{errorcolor} = 0x0000FF;
$skin{normalcolor} = 0x000000;
$skin{icon} = "icon.ico";
}
}
My custom skin file looks like
urlcolor=0x00FF00
errorcolor=0xFF0000
normalcolor=0x0000FF
icon=icon.ico
if someone could help me resile my issue, it would help
