Changeset 920 for branches/secondaryzones/dns.cgi

Timestamp:

08/14/25 13:35:51 (18 hours ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

Complete secondary zone update section

File:

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

branches/secondaryzones/dns.cgi

@@ -651 +651 @@
   $page->param(prins => $zoneinfo->{primaryserver});
   fill_loclist($curgroup, $zoneinfo->{default_location});
+
+} elsif ($webvar{page} eq 'updatesecondary') {
+
+  # security check - does the user have permission to view this entity?
+  # pass 1, record ID
+  # id is zone id
+  if (!check_scope(id => $webvar{id}, type => 'secondaryzone')) {
+    changepage(page => 'secondaryzones',
+        errmsg => "You do not have permission to edit the requested secondary zone");
+  }
+
+  changepage(page => "secondaryzones", errmsg => "You are not permitted to edit secondary zones", id => $webvar{id})
+        unless ($permissions{admin} || $permissions{domain_edit});
+
+  my ($code, $msg) = $dnsdb->updateSecondaryDetails(
+        id => $webvar{id}, primary => $webvar{prins}, location => $webvar{defloc});
+  if ($code eq 'OK') {
+    my $zone = $dnsdb->secondaryName($webvar{id});
+    changepage(page => "secondaryzones", resultmsg => "Secondary zone $zone updated");
+  } else {
+    $page->param(update_failed => 1);
+    $page->param(msg => $msg);
+
+    $page->param(id => $webvar{id});
+    $page->param(prins => $webvar{prins});
+    fill_loclist($curgroup, $webvar{defloc});
+  }
 
 } elsif ($webvar{page} eq 'reclist') {