web/htdocs/details/add.mc

   1 %# $Id: add.mc,v 1.3 2006-09-25 15:33:38 mike Exp $
   2 <%perl>
   3 if ($r->param("_add")) {
   4     my $host = $r->param("net.host");
   5     my $port = $r->param("net.port");
   6     my $db = $r->param("net.path");
   7     my $id = "$host:$port/$db";
   8     $r->param(id => $id);
   9     $m->comp("check.mc", id => $id);
  10 } else {
  11 </%perl>
  12      <p>
  13       Enter the connection details of the target you wish to add,
  14       then press the <b>Add</b> button.
  15      </p>
  16      <form method="get" action="">
  17       <table class="searchform">
  18        <tr>
  19         <th>Host</th>
  20         <td><input type="text" name="net.host" size="40"/></td>
  21        </tr>
  22        <tr>
  23         <th>Port</th>
  24         <td><input type="text" name="net.port" size="5"/></td>
  25        </tr>
  26        <tr>
  27         <th>Database</th>
  28         <td><input type="text" name="net.path" size="20"/></td>
  29        </tr>
  30        <tr><td colspan="2">&nbsp;</td></tr>
  31        <tr>
  32         <th/>
  33         <th><input type="submit" name="_add" value="Add"/></th>
  34        </tr>
  35       </table>
  36      </form>
  37 % }