Changeset 934 for branches/secondaryzones/dns.cgi

Timestamp:

08/28/25 15:55:24 (5 weeks ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

Add secondary zone delete to web UI and extend DNSDB::delZone() to handle
initial basic form for secondary zones. See #86.

File:

• branches/secondaryzones/dns.cgi (modified) (1 diff)

branches/secondaryzones/dns.cgi

@@ -726 +726 @@
     fill_loclist($curgroup, $webvar{defloc});
   }
+
+} elsif ($webvar{page} eq 'delsecondary') {
+
+  changepage(page => "secondaryzones", errmsg => "You are not permitted to delete secondary 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 => 'secondaryzone')) {
+    changepage(page => "secondaryzones", errmsg => "You do not have permission to delete the requested secondary zone");
+  }
+
+  $page->param(id => $webvar{id});
+
+  # first pass = confirm y/n (sorta)
+  if (!defined($webvar{del})) {
+
+    $page->param(del_getconf => 1);
+    $page->param(secondaryzone => $dnsdb->secondaryName($webvar{id}));
+
+  } elsif ($webvar{del} eq 'ok') {
+    my $pargroup = $dnsdb->parentID(id => $webvar{id}, type => 'secondaryzone');
+    my $zone = $dnsdb->secondaryName($webvar{id});
+    my ($code,$msg) = $dnsdb->delZone($webvar{id}, 'n', 'y');
+    if ($code eq 'OK') {
+      changepage(page => "secondaryzones", resultmsg => $msg);
+    } else {
+      changepage(page => "secondaryzones", errmsg => $msg);
+    }
+
+  } else {
+    # cancelled.  whee!
+    changepage(page => "secondaryzones");
+  }
+
 
 } elsif ($webvar{page} eq 'reclist') {