Changeset 773 for trunk/cgi-bin

Timestamp:

09/09/15 18:03:23 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Factor getChildren() minisub out of shrinkBlock() so we can call it
from splitBlock as well

File:

• trunk/cgi-bin/IPDB.pm (modified) (3 diffs)

trunk/cgi-bin/IPDB.pm

@@ -479 +479 @@
 
 } # end _deleteCascade()
+
+
+## IPDB::_getChildren()
+# Recursive sub to retrieve a flat list of suballocations
+# Takes the root parent ID, master ID, reference to push results into, and the CIDR
+# range to restrict results to
+sub _getChildren {
+  my $dbh = shift;
+  my $id = shift;
+  my $master = shift;
+  my $retlist = shift;  # better than trying to return complex structures recursively. Ow.
+  my $cidr = shift;
+
+  if (!$cidr) {
+    my $bd = getBlockData($dbh, $id);
+    $cidr = $bd->{cidr};
+  }
+
+  my $sth = $dbh->prepare(q(
+        SELECT id,cidr,type FROM allocations
+        WHERE parent_id = ? AND master_id = ? AND cidr <<= ?
+        ) );
+  $sth->execute($id, $master, $cidr);
+  while (my $row = $sth->fetchrow_hashref) {
+    push @$retlist, $row;
+    _getChildren($dbh, $row->{id}, $master, $retlist, $cidr);
+  }
+} # end _getChildren()
 
 
@@ -2072 +2100 @@
   my $delfbsth = $dbh->prepare("DELETE FROM freeblocks WHERE parent_id = ? AND cidr <<= ?");
 
-##fixme:  turn this into a public/top-level sub?
-  sub getchildren {
-    my $dbh = shift;
-    my $id = shift;
-    my $master = shift;
-    my $retlist = shift;  # better than trying to return complex structures recursively. Ow.
-    my $cidr = shift;
-
-    if (!$cidr) {
-      my $bd = getBlockData($dbh, $id);
-      $cidr = $bd->{cidr};
-    }
-
-    my $sth = $dbh->prepare(q(
-        SELECT id,cidr,type FROM allocations
-        WHERE parent_id = ? AND master_id = ? AND cidr <<= ?
-        ) );
-    $sth->execute($id, $master, $cidr);
-    while (my $row = $sth->fetchrow_hashref) {
-      push @$retlist, $row;
-      getchildren($dbh, $row->{id}, $master, $retlist, $cidr);
-    }
-  }
-
   my @ret;
   my @newfreelist;
@@ -2114 +2118 @@
       # the block we're munging
       push @clist, { id => $id, type => $binfo->{type}, cidr => $binfo->{block} };
-      getchildren($dbh, $id, $binfo->{master_id}, \@clist, $newfree);
+      _getChildren($dbh, $id, $binfo->{master_id}, \@clist, $newfree);
 
       foreach my $goner (@clist) {