Changeset 5 for trunk/dns.cgi

Timestamp:

09/01/09 17:07:57 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint
Delete domain mostly complete - need to fix up "redirection" after completion

File:

• trunk/dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -300 +300 @@
   }
 
+} elsif ($webvar{page} eq 'deldom') {
+
+  $page->param(id => $webvar{id});
+  # first pass = confirm y/n (sorta)
+  if (!defined($webvar{del})) {
+    $page->param(del_getconf => 1);
+    $page->param(domain => domainName($dbh,$webvar{id}));
+# print some neato things?
+  } elsif ($webvar{del} eq 'ok') {
+    my ($code,$msg) = delDomain($dbh, $webvar{id});
+    if ($code ne 'OK') {
+# need to find failure mode
+      $page->param(del_failed => 1);
+      $page->param(errmsg => $msg);
+    }
+  } else {
+    # cancelled.  whee!
+    $page->param(del_failed => 0);
+# more params?
+  }
+
 } elsif ($webvar{page} eq 'editsoa') {