sub openDB {
  my $return;
  # Input argument: [string(DB Server hostname), String(Database name to open)]
  print DEBUGFILE "Entering sub openDB\n" if ($DEBUG);
  # requires use of require "/home/reporting/nwCentral/dbServers.pl" line
  my $mysqlHost=shift;
  my $mysqlDB=shift;
  my $host = $dbServers{"$mysqlHost"}{'host'};
  my $mysqlUser = $dbServers{"$mysqlHost"}{'user'};
  my $mysqlPass = $dbServers{"$mysqlHost"}{'pass'};
  my $mysqlHostQry = "DBI:mysql:$mysqlDB:$host";
  my $dbh=DBI->connect($mysqlHostQry, $mysqlUser, $mysqlPass) or $return=0;
  if ($return){
    return $dbh;
  }
  else {
    return 0;
  }
}