Changeset 911 for branches/secondaryzones/dns.cgi

Timestamp:

08/12/25 15:47:28 (31 hours ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

First chunk of adding secondary zone management

• Menu link
• Zone list page
• Extend getZoneCount() and getZoneList() to read the secondary zone table

File:

• branches/secondaryzones/dns.cgi (modified) (3 diffs)

branches/secondaryzones/dns.cgi

@@ -606 +606 @@
     changepage(page => "revzones");
   }
+
+} elsif ($webvar{page} eq 'secondaryzones') {
+
+#  $page->param(domlist => 1);
+
+# hmm.  seeing problems in some possibly-not-so-corner cases.
+# this currently only handles "domain on", "domain off"
+  if (defined($webvar{zonestatus})) {
+    # security check - does the user have permission to access this entity?
+    my $flag = 0;
+    foreach (@viewablegroups) {
+      $flag = 1 if $dnsdb->isParent($_, 'group', $webvar{id}, 'secondary');
+    }
+    if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
+      my $stat = $dnsdb->secondaryzoneStatus($webvar{id}, 'n', $webvar{zonestatus});
+      $page->param(resultmsg => $DNSDB::resultstr);
+    } else {
+      $page->param(errmsg => "You are not permitted to view or change the requested domain");
+    }
+    $uri_self =~ s/\&zonestatus=[^&]*//g;   # clean up URL for stuffing into templates
+  }
+
+  show_msgs();
+
+  $page->param(curpage => $webvar{page});
+
+  listsecondaryzones();
+
 
 } elsif ($webvar{page} eq 'reclist') {
@@ -1967 +1995 @@
 ##fixme
   $page->param(mayrdns => 1);
+  $page->param(maysecondary => 1);
 
   $page->param(mayloc => ($permissions{admin} || $permissions{location_view}));
@@ -2359 +2388 @@
 
 
+sub listsecondaryzones {
+# ACLs
+  $page->param(secondary_create => ($permissions{admin} || $permissions{domain_create}) );
+  $page->param(secondary_edit   => ($permissions{admin} || $permissions{domain_edit}) );
+  $page->param(secondary_delete => ($permissions{admin} || $permissions{domain_delete}) );
+
+  my @childgroups;
+  $dnsdb->getChildren($curgroup, \@childgroups, 'all') if $searchsubs;
+  my $childlist = join(',',@childgroups);
+
+#  my $count = $dnsdb->getSecondaryZoneCount(childlist => $childlist, curgroup => $curgroup,
+  my $count = $dnsdb->getZoneCount(childlist => $childlist, curgroup => $curgroup, secondary => 'y',
+        filter => ($filter ? $filter : undef), startwith => ($startwith ? $startwith : undef) );
+
+# fill page count and first-previous-next-last-all bits
+  fill_pgcount($count, 'secondary zone(s)', $dnsdb->groupName($curgroup));
+  fill_fpnla($count);
+
+  $sortby = 'zone';
+# sort/order
+  $session->param($webvar{page}.'sortby', $webvar{sortby}) if $webvar{sortby};
+  $session->param($webvar{page}.'order', $webvar{order}) if $webvar{order};
+
+  $sortby = $session->param($webvar{page}.'sortby') if $session->param($webvar{page}.'sortby');
+  $sortorder = $session->param($webvar{page}.'order') if $session->param($webvar{page}.'order');
+
+# set up the headers
+  my @cols = ('secondary', 'primaryserver', 'status', 'group');
+  my %colheads = (secondary => 'Secondary zone', primaryserver => 'Primary server(s)', status => 'Status', group => 'Group');
+  fill_colheads($sortby, $sortorder, \@cols, \%colheads);
+
+  # hack! hack! pthbttt.  have to rethink the status column storage,
+  # or inactive comes "before" active.  *sigh*
+  $sortorder = ($sortorder eq 'ASC' ? 'DESC' : 'ASC') if $sortby eq 'status';
+
+# waffle, waffle - keep state on these as well as sortby, sortorder?
+##fixme:  put this higher so the count doesn't get munched?
+  $page->param("start$startwith" => 1) if $startwith && $startwith =~ /^(?:[a-z]|0-9)$/;
+
+  $page->param(filter => $filter) if $filter;
+  $page->param(searchsubs => $searchsubs) if $searchsubs;
+
+  $page->param(group => $curgroup);
+
+#  my $zonelist = $dnsdb->getSecondaryZoneList(childlist => $childlist, curgroup => $curgroup,
+  my $zonelist = $dnsdb->getZoneList(childlist => $childlist, curgroup => $curgroup, secondary => 'y',
+        filter => ($filter ? $filter : undef), startwith => ($startwith ? $startwith : undef),
+        offset => $offset, sortby => $sortby, sortorder => $sortorder
+        );
+# probably don't need this, keeping for reference for now
+#  foreach my $rec (@$zonelist) {
+#  }
+  $page->param(zonetable => $zonelist);
+} # end listsecondaryzones()
+
+
 sub listgroups {