my $host = $r->param("host");
my $port = $r->param("port");
my $dbname = $r->param("dbname");
my $host = $r->param("host");
my $port = $r->param("port");
my $dbname = $r->param("dbname");
!defined $port || $port eq "" ||
!defined $dbname || $dbname eq "") {
print qq[<p class="error">
!defined $port || $port eq "" ||
!defined $dbname || $dbname eq "") {
print qq[<p class="error">
- my $query = cql_target($host, $port, $dbname);
+ ### Should use a utility function for this
+ my $query = cql_target($protocol, $host, $port, $dbname);
qw() ],
[ country => $m->comp("country-list.mc"),
"Country", "i:status/i:country" ],
qw() ],
[ country => $m->comp("country-list.mc"),
"Country", "i:status/i:country" ],
"Protocol", "e:serverInfo/\@protocol" ],
[ host => 0, "Host", "e:serverInfo/e:host" ],
[ port => 0, "Port", "e:serverInfo/e:port" ],
"Protocol", "e:serverInfo/\@protocol" ],
[ host => 0, "Host", "e:serverInfo/e:host" ],
[ port => 0, "Port", "e:serverInfo/e:port" ],