Changeset 676 for trunk

Timestamp:

01/16/15 17:28:35 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Add RPC sub to handle batch updates of several reverse IP entries so
callers don't pay the time cost of "many" RPC calls.

File:

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

trunk/dns-rpc.cgi

@@ -87 +87 @@
 #sub downconvert {
         'dnsdb.addOrUpdateRevRec'       => \&addOrUpdateRevRec,
+        'dnsdb.updateRevSet'    => \&updateRevSet,
         'dnsdb.delRec'          => \&delRec,
         'dnsdb.delByCIDR'       => \&delByCIDR,
@@ -596 +597 @@
     } # iterate zones within $cidr
   } # done $cidr-contains-zones
-}
+##fixme:  what about errors?  what about warnings?
+} # done addOrUpdateRevRec()
+
+# Update rDNS on a whole batch of IP addresses.  Presented as a separate sub via RPC
+# since RPC calls can be s...l...o...w....
+sub updateRevSet {
+  my %args = @_;
+
+  _commoncheck(\%args, 'y');
+
+  my @ret;
+  # loop over passed IP/hostname pairs
+  foreach my $key (keys %args) {
+    next unless $key =~ /^host_([\d.]+|[\da-f:]+)$/;
+    my $ip = $1;
+    push @ret, addOrUpdateRevRec(cidr => $ip, name => $args{$key}, %args);
+  }
+##fixme:  what about errors?  what about warnings?
+  return \@ret;
+} # done updateRevSet()
 
 sub delRec {