relocate repo files so ND2 is the only code

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

@@ -0,0 +1,35 @@
+package App::Netdisco::Web::Plugin::Device::Addresses;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_device_tab( { tag => 'addresses', label => 'Addresses', provides_csv => 1 } );
+
+# device interface addresses
+get '/ajax/content/device/addresses' => require_login sub {
+    my $q = param('q');
+
+    my $device
+        = schema('netdisco')->resultset('Device')->search_for_device($q)
+        or send_error( 'Bad device', 400 );
+
+    my @results = $device->device_ips->search( {}, { order_by => 'alias' } )->hri->all;
+
+    return unless scalar @results;
+
+    if (request->is_ajax) {
+        my $json = to_json( \@results );
+        template 'ajax/device/addresses.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/device/addresses_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+1;

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

@@ -0,0 +1,33 @@
+package App::Netdisco::Web::Plugin::Device::Details;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_device_tab({ tag => 'details', label => 'Details' });
+
+# device details table
+ajax '/ajax/content/device/details' => require_login sub {
+    my $q = param('q');
+    my $device = schema('netdisco')->resultset('Device')
+      ->search_for_device($q) or send_error('Bad device', 400);
+
+    my @results
+        = schema('netdisco')->resultset('Device')
+        ->search( { 'me.ip' => $device->ip } )->with_times()
+        ->hri->all;
+    
+    my @power
+        = schema('netdisco')->resultset('DevicePower')
+        ->search( { 'me.ip' => $device->ip } )->with_poestats->hri->all;
+
+    content_type('text/html');
+    template 'ajax/device/details.tt', {
+      d => $results[0], p => \@power
+    }, { layout => undef };
+};
+
+1;

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

@@ -0,0 +1,30 @@
+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/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 class 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;

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

@@ -0,0 +1,129 @@
+package App::Netdisco::Web::Plugin::Device::Neighbors;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_device_tab({ tag => 'netmap', label => 'Neighbors' });
+
+ajax '/ajax/content/device/netmap' => require_login sub {
+    content_type('text/html');
+    template 'ajax/device/netmap.tt', {}, { layout => undef };
+};
+
+sub _get_name {
+    my $ip = shift;
+    my $domain = quotemeta( setting('domain_suffix') || '' );
+
+    (my $dns = (var('devices')->{$ip} || '')) =~ s/$domain$//;
+    return ($dns || $ip);
+}
+
+sub _add_children {
+    my ($ptr, $childs, $step, $limit) = @_;
+
+    return $step if $limit and $step > $limit;
+    my @legit = ();
+    my $max = $step;
+
+    foreach my $c (@$childs) {
+        next if exists var('seen')->{$c};
+        var('seen')->{$c}++;
+        push @legit, $c;
+        push @{$ptr}, {
+          name => _get_name($c),
+          fullname => (var('devices')->{$c} || $c),
+          ip => $c,
+        };
+    }
+
+    for (my $i = 0; $i < @legit; $i++) {
+        $ptr->[$i]->{children} = [];
+        my $nm = _add_children($ptr->[$i]->{children}, var('links')->{$legit[$i]},
+          ($step + 1), $limit);
+        $max = $nm if $nm > $max;
+    }
+
+    return $max;
+}
+
+# d3 seems not to use proper ajax semantics, so get instead of ajax
+get '/ajax/data/device/netmap' => require_login sub {
+    my $q = param('q');
+
+    my $vlan = param('vlan');
+    undef $vlan if (defined $vlan and $vlan !~ m/^\d+$/);
+
+    my $depth = (param('depth') || 8);
+    undef $depth if (defined $depth and $depth !~ m/^\d+$/);
+
+    my $device = schema('netdisco')->resultset('Device')
+      ->search_for_device($q) or send_error('Bad device', 400);
+    my $start = $device->ip;
+
+    my @devices = schema('netdisco')->resultset('Device')->search({}, {
+      result_class => 'DBIx::Class::ResultClass::HashRefInflator',
+      columns => ['ip', 'dns'],
+    })->all;
+    var(devices => { map { $_->{ip} => $_->{dns} } @devices });
+
+    var(links => {});
+    my $rs = schema('netdisco')->resultset('Virtual::DeviceLinks')->search({}, {
+      columns => [qw/left_ip right_ip/],
+      result_class => 'DBIx::Class::ResultClass::HashRefInflator',
+    });
+
+    if ($vlan) {
+        $rs = $rs->search({
+          'left_vlans.vlan' => $vlan,
+          'right_vlans.vlan' => $vlan,
+        }, {
+          join => [qw/left_vlans right_vlans/],
+        });
+    }
+
+    while (my $l = $rs->next) {
+        var('links')->{ $l->{left_ip} } ||= [];
+        push @{ var('links')->{ $l->{left_ip} } }, $l->{right_ip};
+    }
+
+    my %tree = (
+        ip => $start,
+        name => _get_name($start),
+        fullname => (var('devices')->{$start} || $start),
+        children => [],
+    );
+
+    var(seen => {$start => 1});
+    my $max = _add_children($tree{children}, var('links')->{$start}, 1, $depth);
+    $tree{scale} = $max;
+
+    content_type('application/json');
+    to_json(\%tree);
+};
+
+ajax '/ajax/data/device/alldevicelinks' => require_login sub {
+    my @devices = schema('netdisco')->resultset('Device')->search({}, {
+      result_class => 'DBIx::Class::ResultClass::HashRefInflator',
+      columns => ['ip', 'dns'],
+    })->all;
+    var(devices => { map { $_->{ip} => $_->{dns} } @devices });
+
+    my $rs = schema('netdisco')->resultset('Virtual::DeviceLinks')->search({}, {
+      result_class => 'DBIx::Class::ResultClass::HashRefInflator',
+    });
+
+    my %tree = ();
+    while (my $l = $rs->next) {
+        push @{ $tree{ _get_name($l->{left_ip} )} },
+          _get_name($l->{right_ip});
+    }
+
+    content_type('application/json');
+    to_json(\%tree);
+};
+
+true;

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

@@ -0,0 +1,192 @@
+package App::Netdisco::Web::Plugin::Device::Ports;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Util::Web (); # for sort_port
+use App::Netdisco::Web::Plugin;
+
+register_device_tab({ tag => 'ports', label => 'Ports', provides_csv => 1 });
+
+# device ports with a description (er, name) matching
+get '/ajax/content/device/ports' => require_login sub {
+    my $q = param('q');
+    my $prefer = param('prefer');
+    $prefer = ''
+      unless defined $prefer and $prefer =~ m/^(?:port|name|vlan)$/;
+
+    my $device = schema('netdisco')->resultset('Device')
+      ->search_for_device($q) or send_error('Bad device', 400);
+    my $set = $device->ports;
+
+    # refine by ports if requested
+    my $f = param('f');
+    if ($f) {
+        if (($prefer eq 'vlan') or not $prefer and $f =~ m/^\d+$/) {
+            if (param('invert')) {
+                $set = $set->search({
+                  'me.vlan' => { '!=' => $f },
+                  'port_vlans.vlan' => [
+                    '-or' => { '!=' => $f }, { '=' => undef }
+                  ],
+                }, { join => 'port_vlans' });
+            }
+            else {
+                $set = $set->search({
+                  -or => {
+                    'me.vlan' => $f,
+                    'port_vlans.vlan' => $f,
+                  },
+                }, { join => 'port_vlans' });
+            }
+
+            return unless $set->count;
+        }
+        else {
+            if (param('partial')) {
+                # change wildcard chars to SQL
+                $f =~ s/\*/%/g;
+                $f =~ s/\?/_/g;
+                # set wilcards at param boundaries
+                if ($f !~ m/[%_]/) {
+                    $f =~ s/^\%*/%/;
+                    $f =~ s/\%*$/%/;
+                }
+                # enable ILIKE op
+                $f = { (param('invert') ? '-not_ilike' : '-ilike') => $f };
+            }
+            elsif (param('invert')) {
+                $f = { '!=' => $f };
+            }
+
+            if (($prefer eq 'port') or not $prefer and
+                $set->search({'me.port' => $f})->count) {
+
+                $set = $set->search({
+                  -or => [
+                    'me.port' => $f,
+                    'me.slave_of' => $f,
+                  ],
+                });
+            }
+            else {
+                $set = $set->search({'me.name' => $f});
+                return unless $set->count;
+            }
+        }
+    }
+
+    # filter for port status if asked
+    my %port_state = map {$_ => 1}
+      (ref [] eq ref param('port_state') ? @{param('port_state')}
+        : param('port_state') ? param('port_state') : ());
+
+    return unless scalar keys %port_state;
+
+    if (exists $port_state{free}) {
+        if (scalar keys %port_state == 1) {
+            $set = $set->only_free_ports({
+              age_num => (param('age_num') || 3),
+              age_unit => (param('age_unit') || 'months')
+            });
+        }
+        else {
+            $set = $set->with_is_free({
+              age_num => (param('age_num') || 3),
+              age_unit => (param('age_unit') || 'months')
+            });
+        }
+        delete $port_state{free};
+    }
+
+    if (scalar keys %port_state < 3) {
+        my @combi = ();
+
+        push @combi, {'me.up' => 'up'}
+          if exists $port_state{up};
+        push @combi, {'me.up_admin' => 'up', 'me.up' => { '!=' => 'up'}}
+          if exists $port_state{down};
+        push @combi, {'me.up_admin' => { '!=' => 'up'}}
+          if exists $port_state{shut};
+
+        $set = $set->search({-or => \@combi});
+    }
+
+    # get aggregate master status
+    $set = $set->search({}, {
+      'join' => 'agg_master',
+      '+select' => [qw/agg_master.up_admin agg_master.up/],
+      '+as'     => [qw/agg_master_up_admin agg_master_up/],
+    });
+
+    # make sure query asks for formatted timestamps when needed
+    $set = $set->with_times if param('c_lastchange');
+
+    # 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('devport_vlan_limit'));
+
+    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');
+    $nodes_name .= '_with_age' if param('n_age');
+
+    if (param('c_nodes')) {
+        my $ips = ((param('n_ip4') and param('n_ip6')) ? 'ips'
+                  : param('n_ip4') ? 'ip4s'
+                  : 'ip6s');
+
+        # retrieve active/all connected nodes, if asked for
+        $set = $set->search_rs({}, { prefetch => [{$nodes_name => $ips}] });
+        $set = $set->search_rs({}, { order_by => ["${nodes_name}.vlan", "${nodes_name}.mac", "${ips}.ip"] });
+
+        # retrieve wireless SSIDs, if asked for
+        $set = $set->search_rs({}, { prefetch => [{$nodes_name => 'wireless'}] })
+          if param('n_ssid');
+
+        # retrieve NetBIOS, if asked for
+        $set = $set->search_rs({}, { prefetch => [{$nodes_name => 'netbios'}] })
+          if param('n_netbios');
+
+        # retrieve vendor, if asked for
+        $set = $set->search_rs({}, { prefetch => [{$nodes_name => 'oui'}] })
+          if param('n_vendor');
+    }
+
+    # retrieve SSID, if asked for
+    $set = $set->search({}, { prefetch => 'ssid' }) if param('c_ssid');
+
+    # retrieve neighbor devices, if asked for
+    $set = $set->search_rs({}, { prefetch => [{neighbor_alias => 'device'}] })
+      if param('c_neighbors');
+
+    # sort ports (empty set would be a 'no records' msg)
+    my $results = [ sort { &App::Netdisco::Util::Web::sort_port($a->port, $b->port) } $set->all ];
+    return unless scalar @$results;
+
+    if (request->is_ajax) {
+        template 'ajax/device/ports.tt', {
+          results => $results,
+          nodes => $nodes_name,
+          device => $device,
+          vmember_ok => $vmember_ok,
+        }, { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/device/ports_csv.tt', {
+          results => $results,
+          nodes => $nodes_name,
+          device => $device,
+        }, { layout => undef };
+    }
+};
+
+true;