while (<DB>) {
  chomp;
  next if /^\s*\#/;
  next if /^\s*$/;
  unless (/=/) {  
    die "invalid variable assignment in supporters.db: $_";
  }
  my ($key, $val) = split(/\s*=\s*/,$_,2);
  $key =~ s/^\s*//;
  $val =~ s/ *$//g; 
  $config{'db'}{"$key"} = $val;
  $config{"$key"} = $val;
}
close DB;