Changeset 274 for trunk/dns.cgi

Timestamp:

03/14/12 18:01:42 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Flesh out most reverse zone deletion. See #26.

• Convert delDomain() to delZone()
• Add checks to coerce the shared-zone record types down to standard types on removal of the second parent, either way around. (IE, A+PTR will be converted to PTR if the parent domain is removed, or A if the parent revzone is removed)

Make sure to show result or error messages on the reverse zone
list page

File:

• trunk/dns.cgi (modified) (4 diffs)

trunk/dns.cgi

@@ -416 +416 @@
     my $pargroup = parentID($dbh, (id => $webvar{id}, type => 'domain', revrec => $webvar{revrec}));
     my $dom = domainName($dbh, $webvar{id});
-    my ($code,$msg) = delDomain($dbh, $webvar{id});
+    my ($code,$msg) = delZone($dbh, $webvar{id}, $webvar{revrec});
     if ($code eq 'OK') {
       logaction($webvar{id}, $session->param("username"), $pargroup, "Deleted domain $dom");
@@ -434 +434 @@
 
   $webvar{revrec} = 'y';
+
+  if ($session->param('resultmsg')) {
+    $page->param(resultmsg => $session->param('resultmsg'));
+    $session->clear('resultmsg');
+  }
+  if ($session->param('errmsg')) {
+    $page->param(errmsg => $session->param('errmsg'));
+    $session->clear('errmsg');
+  }
+
   $page->param(curpage => $webvar{page});
   listzones();
@@ -480 +490 @@
   }
 
-#} elsif ($webvar{page} eq 'delrevzone') {
+} elsif ($webvar{page} eq 'delrevzone') {
+
+  changepage(page => "revzones", errmsg => "You are not permitted to delete reverse zones")
+        unless ($permissions{admin} || $permissions{domain_delete});
+
+  # security check - does the user have permission to access this entity?
+  if (!check_scope(id => $webvar{id}, type => 'revzone')) {
+    changepage(page => "revzones", errmsg => "You do not have permission to delete the requested reverse zone");
+  }
+
+  $page->param(id => $webvar{id});
+
+  # first pass = confirm y/n (sorta)
+  if (!defined($webvar{del})) {
+
+    $page->param(del_getconf => 1);
+    $page->param(revzone => revName($dbh,$webvar{id}));
+
+  } elsif ($webvar{del} eq 'ok') {
+    my $pargroup = parentID($dbh, (id => $webvar{id}, type => 'revzone', revrec => $webvar{revrec}));
+    my $zone = revName($dbh, $webvar{id});
+    my ($code,$msg) = delZone($dbh, $webvar{id}, 'y');
+    if ($code eq 'OK') {
+##fixme: logaction needs to take "domid OR revid" and some way to know which it is
+      logaction($webvar{id}, $session->param("username"), $pargroup, "Deleted reverse zone $zone");
+      changepage(page => "revzones", resultmsg => "Deleted reverse zone $zone");
+    } else {
+      logaction($webvar{id}, $session->param("username"), $pargroup, "Failed to delete domain $zone ($msg)")
+        if $config{log_failures};
+#push @debugbits, "got back $code, $msg\n";
+      changepage(page => "revzones", errmsg => "Error deleting reverse zone $zone: $msg");
+    }
+
+  } else {
+    # cancelled.  whee!
+    changepage(page => "revzones");
+  }
 
 } elsif ($webvar{page} eq 'reclist') {
@@ -1205 +1251 @@
       my $pargroup = parentID($dbh, (id => $webvar{$_}, type => 'domain', revrec => $webvar{revrec}));
       my $dom = domainName($dbh, $webvar{$_});
-      my ($code, $msg) = delDomain($dbh, $webvar{$_});
+      my ($code, $msg) = delZone($dbh, $webvar{$_}, 'n');
       if ($code eq 'OK') {
         logaction($webvar{$_}, $session->param("username"), $pargroup, "Deleted domain $dom");