Changeset 684

Timestamp:

06/17/15 15:15:40 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add delRevSet() to RPC handler

File:

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

trunk/dns-rpc.cgi

@@ -93 +93 @@
         'dnsdb.delRec'          => \&delRec,
         'dnsdb.delByCIDR'       => \&delByCIDR,
+        'dnsdb.delRevSet'       => \&delRevSet,
 #sub getLogCount {}
 #sub getLogEntries {}
@@ -946 +947 @@
 } # end delByCIDR()
 
+# Batch-delete a set of reverse entries similar to updateRevSet
+sub delRevSet {
+  my %args = @_;
+
+  _commoncheck(\%args, 'y');
+
+  my @ret;
+  # loop over passed CIDRs in args{cidrlist}
+  foreach my $cidr (split(',', $args{cidrlist})) {
+    push @ret, delByCIDR(cidr => $cidr, %args)
+  }
+
+  return \@ret;  
+} # end delRevSet()
+
 #sub getLogCount {}
 #sub getLogEntries {}