Changeset 931 for branches/secondaryzones/dns-rpc.cgi

Timestamp:

08/28/25 13:42:55 (5 weeks ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

Update DNSDB::zoneStatus() to take a hash for arguments instead of bare
values, for easier calling for secondary zone cases

File:

• branches/secondaryzones/dns-rpc.cgi (modified) (2 diffs)

branches/secondaryzones/dns-rpc.cgi

@@ -1957 +1957 @@
 =item reverse
 
-Set to C<y> if you want to get/set the status for a reverse zone
+Set to C<y> if you want to get/set the status for a reverse zone.  Defaults
+to C<n>.
+
+=item secondary
+
+Set to C<y> if you want to get/set the status of a seconary zone.  Defaults
+to C<n>.  C<reverse> has no meaning if C<secondary> is 'y'.
 
 =item status
@@ -1972 +1978 @@
 
   $args{reverse} = 'n' if !$args{reverse} || $args{reverse} ne 'y';
-  my @arglist = ($args{zoneid}, $args{reverse});
-  push @arglist, $args{status} if defined($args{status});
-
-  my $status = $dnsdb->zoneStatus(@arglist);
+  $args{secondary} = 'n' if !$args{secondary} || $args{secondary} ne 'y';
+
+  my $status = $dnsdb->zoneStatus(%args);
 }