sub GetSetting
{
my ($cfg_value,$cfg_filename,$cfg_default)=@_;
open(CFGFILE,"<$cfg_filename") or die "Can't open configuration file $cfg_filename.";
my @cf=<CFGFILE>;
foreach $cfg_line (@cf)
{
if (index($cfg_line,"#")==0) { next; } # Lines starting with a hash mark are comments
my @ln=split("=",$cfg_line);
if ($ln[0] =~ /$cfg_value/i) {
chomp $ln[1];
return $ln[1];
}
}
close CFGFILE;
return $cfg_default; # Return default if we can't find the value 
}