Changeset 5 for trunk

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

Location:

trunk

Files:

• DNSDB.pm (modified) (2 diffs)
• dns.cgi (modified) (1 diff)

trunk/DNSDB.pm

@@ -209 +209 @@
 sub delDomain {
   my $dbh = shift;
-  my $domain = shift;
+  my $domid = shift;
 
   # Allow transactions, and raise an exception on errors so we can catch it later.
@@ -218 +218 @@
   # Wrap all the SQL in a transaction
   eval {
-    # brute force.
-    my $sth = $dbh->prepare("select domain_id from domains where domain=?");
-    $sth->execute($domain);
-    die "Domain not found, can't delete\n" if $sth->rows < 1;
-    my ($id) = $sth->fetchrow_array;
-
-    $sth = $dbh->prepare("delete from records where domain_id=$id");
-    $sth->execute;
-    $sth = $dbh->prepare("delete from domains where domain=?");
-    $sth->execute($domain);
+    my $sth = $dbh->prepare("delete from records where domain_id=?");
+    $sth->execute($domid);
+    $sth = $dbh->prepare("delete from domains where domain_id=?");
+    $sth->execute($domid);
 
     # once we get here, we should have suceeded.

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') {