Changeset 730 for trunk/cgi-bin

Timestamp:

05/21/15 14:55:10 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Fill in first mergeBlocks() working segment: Merge to container, keep
all allocations. See #8

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -2127 +2127 @@
 
       if ($args{scope} eq 'keepall') {
+        # Create a new parent with the same info as the passed "primary".
+        $newparent->execute($newblock, $args{newtype}, $prime);
+        # and now retrieve the new parent ID
+        ($prime) = $dbh->selectrow_array("SELECT currval('allocations_id_seq')");
+        # Reparent the free blocks in the new block
+        $fbreparentsth->execute($prime, $binfo->{master_id}, $binfo->{city}, $newcontainerclass, $binfo->{vrf},
+            $binfo->{parent_id}, $newblock);
+        # keep existing allocations (including the original primary), just push them down a level
+        while (my ($pcidr,$peer_id,$ptype,$m_id) = $peersth->fetchrow_array) {
+          $reparentsth->execute($prime, $binfo->{master_id}, $peer_id);
+          # Fix up master_id on free blocks if we're merging a master block
+          $mfbsth->execute($binfo->{master_id}, $m_id) if $ptype eq 'mm';
+        }
+
       } elsif ($args{scope} =~ /^clear/) {
       } elsif ($args{scope} eq 'mergepeer') { # should this just be an else?