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

Timestamp:

02/18/15 17:16:21 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add "breadcrumb" navigation trace to most pages.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -31 +31 @@
         &listSummary &listSubs &listContainers &listAllocations &listFree &listPool
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
-        &ipParent &subParent &blockParent &getRoutedCity
+        &ipParent &subParent &blockParent &getBreadCrumbs &getRoutedCity
         &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS &getRDNSbyIP
         &getNodeList &getNodeName &getNodeInfo
@@ -46 +46 @@
                 &listSummary &listSubs &listContainers &listAllocations &listFree &listPool
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
-                &ipParent &subParent &blockParent &getRoutedCity
+                &ipParent &subParent &blockParent &getBreadCrumbs &getRoutedCity
                 &allocateBlock &updateBlock &deleteBlock &getBlockData &getBlockRDNS &getRDNSbyIP
                 &getNodeList &getNodeName &getNodeInfo
@@ -950 +950 @@
 
 
+## IPDB::getBreadCrumbs()
+# Retrieve the ID and CIDR of a block's parent(s) up to the master block
+# Returns an arrayref to a list of hashrefs with CIDR and block ID
+sub getBreadCrumbs {
+  my $dbh = shift;
+  my $parent = shift;
+  my @result;
+
+  my $sth = $dbh-> prepare("SELECT cidr,type,id,parent_id FROM allocations WHERE id=?");
+
+  while ($parent != 0) {
+    $sth->execute($parent);
+    my ($cidr,$type,$id,$pid) = $sth->fetchrow_array;
+    push @result, {cidr => $cidr, link => $id, ispool => ($type =~ /^.[dp]$/ ? 1 : 0)};
+    $parent = $pid;
+  }
+
+  return \@result;
+} # end getBread()
+
+
 ## IPDB::getRoutedCity()
 # Get the city for a routed block.