Changeset 720 for trunk/cgi-bin/IPDB.pm

Timestamp:

05/07/15 15:17:05 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Second page in merge sequence; show main allocations and free blocks
that would be affected by the merge, along with reminders as
appropriate about data that may be lost with the combination of merge
scope and target type selected for the new allocation.
See #8.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -29 +29 @@
         &initIPDBGlobals &connectDB &finish &checkDBSanity
         &addMaster &touchMaster
-        &listSummary &listSubs &listContainers &listAllocations &listFree &listPool
+        &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
         &ipParent &subParent &blockParent &getBreadCrumbs &getRoutedCity
@@ -45 +45 @@
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
                 &addMaster &touchMaster
-                &listSummary &listSubs &listContainers &listAllocations &listFree &listPool
+                &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
                 &ipParent &subParent &blockParent &getBreadCrumbs &getRoutedCity
@@ -810 +810 @@
 
 
+## IPDB::listForMerge()
+# Get a list of blocks targetted in a proposed merge
+sub listForMerge {
+  my $dbh = shift;
+  my $parent = shift;
+  my $newblock = shift;
+  my $btype = shift || 'a';
+  $btype = 'a' if $btype !~/^[af]$/;
+
+  my $sql;
+  if ($btype eq 'a') {
+    my $ret = $dbh->selectall_arrayref(q(
+        SELECT a.cidr,a.id,t.dispname FROM allocations a
+        JOIN alloctypes t ON a.type=t.type
+        WHERE a.parent_id = ? AND a.cidr <<= ?
+        ORDER BY a.cidr
+        ),
+        { Slice => {} }, $parent, $newblock);
+    return $ret;
+  } else {
+##fixme:  Not sure about the casting hackery in "SELECT ?::integer AS id", but it works as intended
+    my $ret = $dbh->selectall_arrayref(q(
+        SELECT cidr,id FROM freeblocks
+        WHERE parent_id IN (SELECT ?::integer AS id UNION
+                SELECT id FROM allocations WHERE parent_id = ? AND cidr <<= ?
+        ) AND cidr <<= ?
+        ORDER BY cidr
+        ),
+        { Slice => {} }, $parent, $parent, $newblock, $newblock) or print $dbh->errstr;
+    return $ret;
+  }
+} # end listForMerge()
+
+
 ## IPDB::listFree()
 # Gets a list of free blocks in the requested parent/master and VRF instance in both CIDR and range notation