Changeset 931 for branches/secondaryzones/dns.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.cgi (modified) (4 diffs)

branches/secondaryzones/dns.cgi

@@ -412 +412 @@
     }
     if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
-      my $stat = $dnsdb->zoneStatus($webvar{id}, 'n', $webvar{zonestatus});
+      my $stat = $dnsdb->zoneStatus(zoneid => $webvar{id}, revrec => 'n', newstatus => $webvar{zonestatus});
       $page->param(resultmsg => $DNSDB::resultstr);
     } else {
@@ -518 +518 @@
     }
     if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
-      my $stat = $dnsdb->zoneStatus($webvar{id}, 'y', $webvar{zonestatus});
+      my $stat = $dnsdb->zoneStatus(zoneid => $webvar{id}, revrec => 'y', newstatus => $webvar{zonestatus});
       $page->param(resultmsg => $DNSDB::resultstr);
     } else {
@@ -620 +620 @@
     }
     if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
-      my $stat = $dnsdb->secondaryzoneStatus($webvar{id}, 'n', $webvar{zonestatus});
+      my $stat = $dnsdb->zoneStatus(zoneid => $webvar{id}, revrec => 'n', secondary => 'y', newstatus => $webvar{zonestatus});
       $page->param(resultmsg => $DNSDB::resultstr);
     } else {
@@ -1331 +1331 @@
         if $webvar{bulkaction} eq 'move';
     if ($webvar{bulkaction} eq 'deactivate' || $webvar{bulkaction} eq 'activate') {
-      my $stat = $dnsdb->zoneStatus($webvar{$input}, ($fr eq 'dom' ? 'n' : 'y'),
-        ($webvar{bulkaction} eq 'activate' ? 'domon' : 'domoff'));
+      my $stat = $dnsdb->zoneStatus(zoneid => $webvar{$input}, revrec => ($fr eq 'dom' ? 'n' : 'y'),
+        newstatus => ($webvar{bulkaction} eq 'activate' ? 'domon' : 'domoff'));
       $code = (defined($stat) ? 'OK' : 'FAIL');
       $msg = (defined($stat) ? $DNSDB::resultstr : $DNSDB::errstr);