Changeset 749 for trunk/cgi-bin


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

/trunk

Commit last branch of rDNS call for mergeBlocks(); target == "leaf"
allocation.
See #8.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/IPDB.pm

    r748 r749  
    25602560    } # scope eq 'clearpeer' || 'clearall'
    25612561
     2562  } elsif ($args{newtype} =~ /.[enr]/) {
     2563    # Merge to leaf type
     2564
     2565    # Resize rDNS template for $prime
     2566    _rpc('resizeTemplate', oldcidr => "$binfo->{block}", newcidr => $newblock->network.'', rpcuser => $args{user});
     2567
     2568    # Assemble a list of blocks to delete...
     2569    my $cidrlist;
     2570    foreach my $mblock (@retlist) {
     2571      $cidrlist .= $mblock->{block}."," unless $mblock->{block} =~ $newblock;
     2572    }
     2573    # Delete all other records within the new block
     2574    $cidrlist .= $binfo->{block};
     2575    _rpc('delRevSet', cidrlist => $cidrlist, rpcuser => $args{user}, delforward => 'y', delsubs => 'y',
     2576        parpatt => $pinfo->{rdns});
     2577
    25622578  } # type grouping for rDNS calls
    25632579
Note: See TracChangeset for help on using the changeset viewer.