web/htdocs/details/delete.mc

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