Changeset 5 for trunk/DNSDB.pm

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/DNSDB.pm (modified) (2 diffs)

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.