From 2368b6b457f7051d15e54e6785c77f9f0cefe0db Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Wed, 20 Sep 2006 16:49:26 +0000
Subject: [PATCH] New

---
 web/htdocs/add.html       |    3 +++
 web/htdocs/details/add.mc |   37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 web/htdocs/add.html
 create mode 100644 web/htdocs/details/add.mc

diff --git a/web/htdocs/add.html b/web/htdocs/add.html
new file mode 100644
index 0000000..847e840
--- /dev/null
+++ b/web/htdocs/add.html
@@ -0,0 +1,3 @@
+%# $Id: add.html,v 1.1 2006-09-20 16:49:26 mike Exp $
+<& /chrome/layout.mc, %ARGS, title => "Add a new target",
+    component => "/details/add.mc" &>
diff --git a/web/htdocs/details/add.mc b/web/htdocs/details/add.mc
new file mode 100644
index 0000000..07bb609
--- /dev/null
+++ b/web/htdocs/details/add.mc
@@ -0,0 +1,37 @@
+%# $Id: add.mc,v 1.1 2006-09-20 16:49:46 mike Exp $
+<%perl>
+if ($r->param("_add")) {
+    my $host = $r->param("net.host");
+    my $port = $r->param("net.port");
+    my $db = $r->param("net.path");
+    my $id = "$host:$port/$db";
+    $r->param(id => $id);
+    $m->comp("check.mc");
+} else {
+</%perl>
+     <p>
+      Enter the connection details of the target you wish to add,
+      then press the <b>Add</b> button.
+     </p>
+     <form>
+      <table class="searchform">
+       <tr>
+        <th>Host</th>
+	<td><input type="text" name="net.host" size="40"/></td>
+       </tr>
+       <tr>
+        <th>Port</th>
+	<td><input type="text" name="net.port" size="5"/></td>
+       </tr>
+       <tr>
+        <th>Database</th>
+	<td><input type="text" name="net.path" size="20"/></td>
+       </tr>
+       <tr><td colspan="2">&nbsp;</td></tr>
+       <tr>
+        <th/>
+        <th><input type="submit" name="_add" value="Add"/></th>
+       </tr>
+      </table>
+     </form>
+% }
-- 
1.7.10.4