web/htdocs/details/delete.mc

   1 %# $Id: delete.mc,v 1.7 2007-06-27 11:09:32 mike Exp $
   2 <%args>
   3 $id
   4 $really => 0
   5 </%args>
   6 % if (!$really) {
   7      <h2>Warning</h2>
   8      <p class="error">
   9       Are you sure you want to delete the target
  10       <% xml_encode($id) %>?
  11      </p>
  12      <p>
  13       <a href="?really=1&amp;id=<% xml_encode(uri_escape_utf8($id)) %>">Yes</a><br/>
  14       <a href="/full.html?id=<% xml_encode(uri_escape_utf8($id)) %>">No</a><br/>
  15      </p>
  16 % } else {
  17 <%perl>
  18     my $db = ZOOM::IRSpy::connect_to_registry();
  19     my $conn = new ZOOM::Connection($db, 0,
  20                                     user => "admin", password => "fruitbat",
  21                                     elementSetName => "zeerex");
  22     ZOOM::IRSpy::_delete_record($conn, $id);
  23 </%perl>
  24      <p>
  25       Deleted record
  26       <% xml_encode($id) %>
  27      </p>
  28 % }