Changeset 684


Ignore:
Timestamp:
06/17/15 15:15:40 (9 years ago)
Author:
Kris Deugau
Message:

/trunk

Add delRevSet() to RPC handler

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dns-rpc.cgi

    r683 r684  
    9393        'dnsdb.delRec'          => \&delRec,
    9494        'dnsdb.delByCIDR'       => \&delByCIDR,
     95        'dnsdb.delRevSet'       => \&delRevSet,
    9596#sub getLogCount {}
    9697#sub getLogEntries {}
     
    946947} # end delByCIDR()
    947948
     949# Batch-delete a set of reverse entries similar to updateRevSet
     950sub delRevSet {
     951  my %args = @_;
     952
     953  _commoncheck(\%args, 'y');
     954
     955  my @ret;
     956  # loop over passed CIDRs in args{cidrlist}
     957  foreach my $cidr (split(',', $args{cidrlist})) {
     958    push @ret, delByCIDR(cidr => $cidr, %args)
     959  }
     960
     961  return \@ret; 
     962} # end delRevSet()
     963
    948964#sub getLogCount {}
    949965#sub getLogEntries {}
Note: See TracChangeset for help on using the changeset viewer.