new device module plugin

Netdisco/lib/App/Netdisco/Util/Web.pm

@@ -116,4 +116,43 @@ sub sort_port {
     return $val;
 }
 
+=head2 sort_modules( $modules )
+
+Sort devices modules into tree hierarchy based upon position and parent -
+input arg is module list.
+
+=cut
+
+sub sort_modules {
+    my $input = shift;
+
+    my %modules;
+
+    foreach my $module (@$input) {
+        $modules{$module->index}{module} = $module;
+        if ($module->parent) {
+            # Next wrong: some things have weird pos'
+            # index |              description               |        type         | parent |  class  | pos 
+            #-------+----------------------------------------+---------------------+--------+---------+-----
+            #     1 | Cisco Aironet 1200 Series Access Point | cevChassisAIRAP1210 |      0 | chassis |  -1
+            #     3 | PowerPC405GP Ethernet                  | cevPortFEIP         |      1 | port    |  -1
+            #     2 | 802.11G Radio                          | cevPortUnknown      |      1 | port    |   0
+            $module->pos = 0 if ($module->pos < 0);
+
+            # this is wrong.  a given parent can
+            # have multiple items at a single pos value.
+            # (HP may have gotten this wrong, but that's
+            # reality...)
+            if ($module->pos) {
+                ${$modules{$module->parent}{children}{$module->class}}[$module->pos] = $module->index;
+            } else {
+                push(@{$modules{$module->parent}{children}{$module->class}}, $module->index);
+            }
+        } else {
+            push(@{$modules{root}}, $module->index);
+        }
+    }
+    return \%modules;
+}
+
 1;

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

@@ -2,14 +2,29 @@ package App::Netdisco::Web::Plugin::Device::Modules;
 
 use Dancer ':syntax';
 use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
 use Dancer::Plugin::Auth::Extensible;
 
+use App::Netdisco::Util::Web (); # for sort_module
 use App::Netdisco::Web::Plugin;
 
 register_device_tab({ tag => 'modules', label => 'Modules' });
 
-ajax '/ajax/content/device/:thing' => require_login sub {
-    return "<p>Hello, this is where the ". param('thing') ." content goes.</p>";
+ajax '/ajax/content/device/modules' => require_login sub {
+    my $q = param('q');
+
+    my $device = schema('netdisco')->resultset('Device')
+      ->search_for_device($q) or send_error('Bad device', 400);
+    my @set = $device->modules->search({}, {order_by => { -asc => [qw/parent pos index/] }});
+
+    # sort modules (empty set would be a 'no records' msg)
+    my $results = &App::Netdisco::Util::Web::sort_modules( \@set );
+    return unless scalar %$results;
+
+    content_type('text/html');
+    template 'ajax/device/modules.tt', {
+      nodes => $results,
+    }, { layout => undef };
 };
 
 true;