my $host = $r->param("host");
my $port = $r->param("port");
my $dbname = $r->param("dbname");
if (!defined $host || $host eq "" ||
!defined $port || $port eq "" ||
!defined $dbname || $dbname eq "") {
my $host = $r->param("host");
my $port = $r->param("port");
my $dbname = $r->param("dbname");
if (!defined $host || $host eq "" ||
!defined $port || $port eq "" ||
!defined $dbname || $dbname eq "") {