+
+} else {
+ # New record
+ 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 "") {
+ print qq[<p class="error">You must specify host, port and database name.</p>\n];
+ $r->param(update => 0);
+ }
+
+ my $query = cql_target($host, $port, $dbname);