Changeset 1034 for branches/stable/dns-rpc.cgi

Timestamp:

02/11/26 14:51:02 (15 hours ago)

Author:

Kris Deugau

Message:

/branches/stable

Completed triaging existing trunk commits from production

Location:

branches/stable

Files:

• . (modified) (1 prop)
• dns-rpc.cgi (modified) (1 diff)

branches/stable/dns-rpc.cgi

@@ -1628 +1628 @@
       if ($args{delsubs}) {
         # Delete ALL EVARYTHING!!one11!! in $args{cidr}
-        my $reclist = $dnsdb->getRecList(rpc => 1, defrec => 'n', revrec => 'y', id => $zonelist->[0]->{rdns_id});
+
+        # Deleting a small $args{cidr} from a large reverse zone will sometimes
+        # silently fail by not finding the appropriate record(s).  Prepend a
+        # Postgres CIDR operator to assist in filtering
+        my $filt = "<<= $args{cidr}";
+
+        my $reclist = $dnsdb->getRecList(rpc => 1, defrec => 'n', revrec => 'y', id => $zonelist->[0]->{rdns_id},
+            filter => $filt, offset => 'all');
+
         foreach my $rec (@$reclist) {
           my $reccidr = new NetAddr::IP $rec->{val};