Changeset 808 for trunk/cgi-bin/main.cgi

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/main.cgi (modified) (3 diffs)

trunk/cgi-bin/main.cgi

@@ -108 +108 @@
 if($webvar{action} eq 'index') {
   showSummary();
+} elsif ($webvar{action} eq 'showvrf') {
+  showVRF();
 } elsif ($webvar{action} eq 'addmaster') {
   if ($IPDBacl{$authuser} !~ /a/) {
@@ -269 +271 @@
 
 
+# Show IP blocks in a VRF
+sub showVRF {
+  my $masterlist = listSummary($ip_dbh, $webvar{vrf});
+  $page->param(vrf => $webvar{vrf});
+  $page->param(masterlist => $masterlist);
+
+  # we don't have a netblock;  pass 0 for the block ID
+  # Tree navigation
+  my $crumbs = getBreadCrumbs($ip_dbh, 0, $webvar{vrf});
+  my @rcrumbs = reverse (@$crumbs);
+  $utilbar->param(breadcrumb => \@rcrumbs);
+
+  $page->param(addmaster => ($IPDBacl{$authuser} =~ /s/) );
+} # showVRF
+
+
 # Display blocks immediately within a given parent
 sub showSubs {
@@ -306 +324 @@
 #$page->param(editme => 1) unless $pinfo->{type} ne 'mm';
 
-  my $crumbs = getBreadCrumbs($ip_dbh, $pinfo->{parent_id});
+  my $crumbs = getBreadCrumbs($ip_dbh, $pinfo->{parent_id}, $pinfo->{vrf});
   my @rcrumbs = reverse (@$crumbs);
   $utilbar->param(breadcrumb => \@rcrumbs);