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

Timestamp:

03/08/16 13:16:44 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Extend UI to browse into a VRF. See #54.
Also extend breadcrumb segment to show the VRF.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -1391 +1391 @@
 sub getBreadCrumbs {
   my $dbh = shift;
-  my $parent = shift;
+  my $parent = shift || 0;
+  my $vrf = shift;      # if we're not browsing into netblocks yet, caller can pass the VRF for breadcrumbs
   my @result;
 
-  my $sth = $dbh-> prepare("SELECT cidr,type,id,parent_id FROM allocations WHERE id=?");
+  my $sth = $dbh-> prepare("SELECT cidr,type,id,parent_id,vrf 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)};
+    my ($cidr,$type,$id,$pid,$bvrf) = $sth->fetchrow_array;
+    $vrf = $bvrf;
+    push @result, { cidr => $cidr, link => $id, ispool => ($type =~ /^.[dp]$/ ? 1 : 0) };
     $parent = $pid;
   }
 
+  push @result, { cidr => "vrf:$vrf", link => $vrf, isvrf => 1 }
+        if $vrf;
+
   return \@result;
-} # end getBread()
+} # end getBreadCrumbs()