Avoid displaying all VLANs on device ports when there are 1000's

Netdisco/Changes

@@ -1,5 +1,9 @@
 2.031006 - 2015-02-12
 
+  [ENHANCEMENTS]
+
+  * Avoid displaying all VLANs on device ports when there are 1000's
+
   [BUG FIXES]
 
   * Fix headings on IP Inventory CSV report (J. Binks)

Netdisco/lib/App/Netdisco/Manual/ReleaseNotes.pod

@@ -36,6 +36,15 @@ but they are backwards compatible.
 
 =back
 
+=head1 2.031006
+
+=head2 General Notices
+
+When displaying device ports, Netdisco will now avoid showing VLAN Membership
+if it looks like there are a large number of VLANs on many ports. This is an
+average of the VLANs per port, configurable in
+<deviceport_vlan_membership_threshold>. The default is 150.
+
 =head1 2.031005
 
 =head2 General Notices

Netdisco/lib/App/Netdisco/Web/Plugin/Device/Ports.pm

@@ -123,9 +123,16 @@ get '/ajax/content/device/ports' => require_login sub {
     # make sure query asks for formatted timestamps when needed
     $set = $set->with_times if param('c_lastchange');
 
-    # get vlans on the port
+    # get vlans on the port, if there aren't too many
+    my $port_cnt = $device->ports->count() || 1;
+    my $vlan_cnt = $device->port_vlans->count() || 1;
+    my $vmember_ok =
+      (($vlan_cnt / $port_cnt) <= setting('deviceport_vlan_membership_threshold'));
+
+    if ($vmember_ok) {
         $set = $set->search_rs({}, { prefetch => 'all_port_vlans' })->with_vlan_count
           if param('c_vmember');
+    }
 
     # what kind of nodes are we interested in?
     my $nodes_name = (param('n_archived') ? 'nodes' : 'active_nodes');
@@ -165,6 +172,7 @@ get '/ajax/content/device/ports' => require_login sub {
           results => $results,
           nodes => $nodes_name,
           device => $device,
+          vmember_ok => $vmember_ok,
         }, { layout => undef };
     }
     else {

Netdisco/share/config.yml

@@ -86,6 +86,24 @@ table_pagesize: 10
 table_showrecordsmenu:
   - [10, 25, 50, 100, '-1']
   - [10, 25, 50, 100, 'All']
+vlanctl: true
+portctl_nameonly: false
+portctl_nophones: false
+portctl_vlans: false
+portctl_uplinks: false
+port_control_reasons:
+  address:     'Address Allocation Abuse'
+  copyright:   'Copyright Violation'
+  dos:         'Denial of Service'
+  bandwidth:   'Excessive Bandwidth'
+  polling:     'Excessive Polling of DNS/DHCP/SNMP'
+  noserv:      'Not In Service'
+  exploit:     'Remote Exploit Possible'
+  compromised: 'System Compromised'
+  other:       'Other'
+  resolved:    'Issue Resolved'
+check_userlog: true
+deviceport_vlan_membership_threshold: 150
 
 # -------------
 # NETDISCO CORE
@@ -157,23 +175,6 @@ ignore_interfaces:
   - '(E|T)\d \d\/\d\/\d'
 ignore_private_nets: false
 reverse_sysname: false
-vlanctl: true
-portctl_nameonly: false
-portctl_nophones: false
-portctl_vlans: false
-portctl_uplinks: false
-check_userlog: true
-port_control_reasons:
-  address:     'Address Allocation Abuse'
-  copyright:   'Copyright Violation'
-  dos:         'Denial of Service'
-  bandwidth:   'Excessive Bandwidth'
-  polling:     'Excessive Polling of DNS/DHCP/SNMP'
-  noserv:      'Not In Service'
-  exploit:     'Remote Exploit Possible'
-  compromised: 'System Compromised'
-  other:       'Other'
-  resolved:    'Issue Resolved'
 
 # --------------
 # BACKEND DAEMON

Netdisco/share/views/ajax/device/ports.tt

@@ -188,6 +188,7 @@
 
       [% IF params.c_vmember %]
       <td>
+        [% IF vmember_ok %]
           [% IF row.vlan_count %]
           [% SET output = '' %]
           [% SET vlanlist = [] %]
@@ -206,6 +207,9 @@
           [% END %]
           [% output %]
           [% END %]
+        [% ELSE %]
+        <i class="icon-asterisk"></i> (too many to list)
+        [% END %]
       </td>
       [% END %]