relocate repo files so ND2 is the only code

2017-04-14 23:08:55 +01:00
parent 9a016ea6ba
commit d23b32500f
469 changed files with 0 additions and 6920 deletions
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/JobQueue.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/JobQueue.pm
@@ -0,0 +1,32 @@
+package App::Netdisco::Web::Plugin::AdminTask::JobQueue;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::JobQueue qw/jq_log jq_delete/;
+
+register_admin_task({
+  tag => 'jobqueue',
+  label => 'Job Queue',
+});
+
+ajax '/ajax/control/admin/jobqueue/del' => require_role admin => sub {
+    send_error('Missing job', 400) unless param('job');
+    jq_delete( param('job') );
+};
+
+ajax '/ajax/control/admin/jobqueue/delall' => require_role admin => sub {
+    jq_delete();
+};
+
+ajax '/ajax/content/admin/jobqueue' => require_role admin => sub {
+    content_type('text/html');
+    template 'ajax/admintask/jobqueue.tt', {
+      results => [ jq_log ],
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/NodeMonitor.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/NodeMonitor.pm
@@ -0,0 +1,75 @@
+package App::Netdisco::Web::Plugin::AdminTask::NodeMonitor;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::Util::Node 'check_mac';
+
+register_admin_task({
+  tag => 'nodemonitor',
+  label => 'Node Monitor',
+});
+
+sub _sanity_ok {
+    return 0 unless param('mac')
+      and check_mac(undef, param('mac'));
+
+    params->{mac} = check_mac(undef, param('mac'));
+    return 1;
+}
+
+ajax '/ajax/control/admin/nodemonitor/add' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $monitor = schema('netdisco')->resultset('NodeMonitor')
+        ->create({
+          mac => param('mac'),
+          active => (param('active') ? \'true' : \'false'),
+          why => param('why'),
+          cc => param('cc'),
+        });
+    });
+};
+
+ajax '/ajax/control/admin/nodemonitor/del' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      schema('netdisco')->resultset('NodeMonitor')
+        ->find({mac => param('mac')})->delete;
+    });
+};
+
+ajax '/ajax/control/admin/nodemonitor/update' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $monitor = schema('netdisco')->resultset('NodeMonitor')
+        ->find({mac => param('mac')});
+      return unless $monitor;
+
+      $monitor->update({
+        mac => param('mac'),
+        active => (param('active') ? \'true' : \'false'),
+        why => param('why'),
+        cc => param('cc'),
+        date => \'now()',
+      });
+    });
+};
+
+ajax '/ajax/content/admin/nodemonitor' => require_role admin => sub {
+    my $set = schema('netdisco')->resultset('NodeMonitor')
+      ->search(undef, { order_by => [qw/active date mac/] });
+
+    content_type('text/html');
+    template 'ajax/admintask/nodemonitor.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/OrphanedDevices.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/OrphanedDevices.pm
@@ -0,0 +1,82 @@
+package App::Netdisco::Web::Plugin::AdminTask::OrphanedDevices;
+
+use strict;
+use warnings;
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_admin_task(
+    {   tag          => 'orphaned',
+        label        => 'Orphaned Devices / Networks',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/admin/orphaned' => require_role admin => sub {
+
+    my @tree = schema('netdisco')->resultset('Virtual::UnDirEdgesAgg')
+        ->search( undef, { prefetch => 'device' } )->hri->all;
+
+    my @orphans
+        = schema('netdisco')->resultset('Virtual::OrphanedDevices')->search()
+        ->order_by('ip')->hri->all;
+
+    return unless ( scalar @tree || scalar @orphans );
+
+    my @ordered;
+
+    if ( scalar @tree ) {
+        my %tree = map { $_->{'left_ip'} => $_ } @tree;
+
+        my $current_graph = 0;
+        my %visited       = ();
+        my @to_visit      = ();
+        foreach my $node ( keys %tree ) {
+            next if exists $visited{$node};
+
+            $current_graph++;
+            @to_visit = ($node);
+            while (@to_visit) {
+                my $node_to_visit = shift @to_visit;
+
+                $visited{$node_to_visit} = $current_graph;
+
+                push @to_visit,
+                    grep { !exists $visited{$_} }
+                    @{ $tree{$node_to_visit}->{'links'} };
+            }
+        }
+
+        my @graphs = ();
+        foreach my $key ( keys %visited ) {
+            push @{ $graphs[ $visited{$key} - 1 ] }, $tree{$key}->{'device'};
+        }
+
+        @ordered = sort { scalar @{$b} <=> scalar @{$a} } @graphs;
+    }
+
+    return if ( scalar @ordered < 2 && !scalar @tree );
+
+    if ( request->is_ajax ) {
+        template 'ajax/admintask/orphaned.tt',
+            {
+            orphans => \@orphans,
+            graphs  => \@ordered,
+            },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/admintask/orphaned_csv.tt',
+            {
+            orphans => \@orphans,
+            graphs  => \@ordered,
+            },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/PollerPerformance.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/PollerPerformance.pm
@@ -0,0 +1,24 @@
+package App::Netdisco::Web::Plugin::AdminTask::PollerPerformance;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_admin_task({
+  tag => 'performance',
+  label => 'Poller Performance',
+});
+
+ajax '/ajax/content/admin/performance' => require_role admin => sub {
+    my $set = schema('netdisco')->resultset('Virtual::PollerPerformance');
+
+    content_type('text/html');
+    template 'ajax/admintask/performance.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/PseudoDevice.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/PseudoDevice.pm
@@ -0,0 +1,100 @@
+package App::Netdisco::Web::Plugin::AdminTask::PseudoDevice;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use NetAddr::IP::Lite ':lower';
+
+register_admin_task({
+  tag => 'pseudodevice',
+  label => 'Pseudo Devices',
+});
+
+sub _sanity_ok {
+    return 0 unless param('dns')
+      and param('dns') =~ m/^[[:print:]]+$/
+      and param('dns') !~ m/[[:space:]]/;
+
+    my $ip = NetAddr::IP::Lite->new(param('ip'));
+    return 0 unless ($ip and $ip->addr ne '0.0.0.0');
+
+    return 0 unless param('ports')
+      and param('ports') =~ m/^[[:digit:]]+$/;
+
+    return 1;
+}
+
+ajax '/ajax/control/admin/pseudodevice/add' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $device = schema('netdisco')->resultset('Device')
+        ->create({
+          ip => param('ip'),
+          dns => param('dns'),
+          vendor => 'netdisco',
+          last_discover => \'now()',
+        });
+      return unless $device;
+
+      $device->ports->populate([
+        [qw/port type/],
+        map {["Port$_", 'other']} @{[1 .. param('ports')]},
+      ]);
+
+      # device_ip table is used to show whether topo is "broken"
+      schema('netdisco')->resultset('DeviceIp')
+        ->create({
+          ip => param('ip'),
+          alias => param('ip'),
+        });
+    });
+};
+
+ajax '/ajax/control/admin/pseudodevice/del' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+    forward '/ajax/control/admin/delete', { device => param('ip') };
+};
+
+ajax '/ajax/control/admin/pseudodevice/update' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $device = schema('netdisco')->resultset('Device')
+        ->with_port_count->find({ip => param('ip')});
+      return unless $device;
+      my $count = $device->port_count;
+
+      if (param('ports') > $count) {
+          my $start = $count + 1;
+          $device->ports->populate([
+            [qw/port type/],
+            map {["Port$_", 'other']} @{[$start .. param('ports')]},
+          ]);
+      }
+      elsif (param('ports') < $count) {
+          my $start = param('ports') + 1;
+          $device->ports
+            ->single({port => "Port$_"})->delete
+          for ($start .. $count);
+      }
+    });
+};
+
+ajax '/ajax/content/admin/pseudodevice' => require_role admin => sub {
+    my $set = schema('netdisco')->resultset('Device')
+      ->search(
+        {vendor => 'netdisco'},
+        {order_by => { -desc => 'last_discover' }},
+      )->with_port_count;
+
+    content_type('text/html');
+    template 'ajax/admintask/pseudodevice.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/SlowDevices.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/SlowDevices.pm
@@ -0,0 +1,24 @@
+package App::Netdisco::Web::Plugin::AdminTask::SlowDevices;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_admin_task({
+  tag => 'slowdevices',
+  label => 'Slowest Devices',
+});
+
+ajax '/ajax/content/admin/slowdevices' => require_role admin => sub {
+    my $set = schema('netdisco')->resultset('Virtual::SlowDevices');
+
+    content_type('text/html');
+    template 'ajax/admintask/slowdevices.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/Topology.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/Topology.pm
@@ -0,0 +1,142 @@
+package App::Netdisco::Web::Plugin::AdminTask::Topology;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::Util::Device 'get_device';
+
+use Try::Tiny;
+use NetAddr::IP::Lite ':lower';
+
+register_admin_task({
+  tag => 'topology',
+  label => 'Manual Device Topology',
+});
+
+sub _sanity_ok {
+    my $dev1 = NetAddr::IP::Lite->new(param('dev1'));
+    return 0 unless ($dev1 and $dev1->addr ne '0.0.0.0');
+
+    my $dev2 = NetAddr::IP::Lite->new(param('dev2'));
+    return 0 unless ($dev2 and $dev2->addr ne '0.0.0.0');
+
+    return 0 unless param('port1');
+    return 0 unless param('port2');
+
+    return 1;
+}
+
+ajax '/ajax/control/admin/topology/add' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    my $device = schema('netdisco')->resultset('Topology')
+      ->create({
+        dev1  => param('dev1'),
+        port1 => param('port1'),
+        dev2  => param('dev2'),
+        port2 => param('port2'),
+      });
+
+    # re-set remote device details in affected ports
+    # could fail for bad device or port names
+    try {
+        schema('netdisco')->txn_do(sub {
+          # only work on root_ips
+          my $left  = get_device(param('dev1'));
+          my $right = get_device(param('dev2'));
+
+          # skip bad entries
+          return unless ($left->in_storage and $right->in_storage);
+
+          $left->ports
+            ->search({port => param('port1')}, {for => 'update'})
+            ->single()
+            ->update({
+              remote_ip   => param('dev2'),
+              remote_port => param('port2'),
+              remote_type => undef,
+              remote_id   => undef,
+              is_uplink   => \"true",
+              manual_topo => \"true",
+            });
+
+          $right->ports
+            ->search({port => param('port2')}, {for => 'update'})
+            ->single()
+            ->update({
+              remote_ip   => param('dev1'),
+              remote_port => param('port1'),
+              remote_type => undef,
+              remote_id   => undef,
+              is_uplink   => \"true",
+              manual_topo => \"true",
+            });
+        });
+    };
+};
+
+ajax '/ajax/control/admin/topology/del' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $device = schema('netdisco')->resultset('Topology')
+        ->search({
+          dev1  => param('dev1'),
+          port1 => param('port1'),
+          dev2  => param('dev2'),
+          port2 => param('port2'),
+        })->delete;
+    });
+
+    # re-set remote device details in affected ports
+    # could fail for bad device or port names
+    try {
+        schema('netdisco')->txn_do(sub {
+          # only work on root_ips
+          my $left  = get_device(param('dev1'));
+          my $right = get_device(param('dev2'));
+
+          # skip bad entries
+          return unless ($left->in_storage and $right->in_storage);
+
+          $left->ports
+            ->search({port => param('port1')}, {for => 'update'})
+            ->single()
+            ->update({
+              remote_ip   => undef,
+              remote_port => undef,
+              remote_type => undef,
+              remote_id   => undef,
+              is_uplink   => \"false",
+              manual_topo => \"false",
+            });
+
+          $right->ports
+            ->search({port => param('port2')}, {for => 'update'})
+            ->single()
+            ->update({
+              remote_ip   => undef,
+              remote_port => undef,
+              remote_type => undef,
+              remote_id   => undef,
+              is_uplink   => \"false",
+              manual_topo => \"false",
+            });
+        });
+    };
+};
+
+ajax '/ajax/content/admin/topology' => require_role admin => sub {
+    my $set = schema('netdisco')->resultset('Topology')
+      ->search({},{order_by => [qw/dev1 dev2 port1/]});
+
+    content_type('text/html');
+    template 'ajax/admintask/topology.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/UndiscoveredNeighbors.pm
@@ -0,0 +1,48 @@
+package App::Netdisco::Web::Plugin::AdminTask::UndiscoveredNeighbors;
+
+use strict;
+use warnings;
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::Device qw/is_discoverable/;
+
+use App::Netdisco::Web::Plugin;
+
+register_admin_task(
+    {   tag          => 'undiscoveredneighbors',
+        label        => 'Undiscovered Neighbors',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/admin/undiscoveredneighbors' => require_role admin => sub {
+    my @results
+        = schema('netdisco')->resultset('Virtual::UndiscoveredNeighbors')
+        ->order_by('ip')->hri->all;
+    return unless scalar @results;
+
+    # Don't include devices excluded from discovery by config
+    # but only if the number of devices is small, as it triggers a
+    # SELECT per device to check.
+    if (scalar @results < 50) {
+        @results
+            = grep { is_discoverable( $_->{'remote_ip'}, $_->{'remote_type'} ) }
+            @results;
+    }
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        template 'ajax/admintask/undiscoveredneighbors.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/admintask/undiscoveredneighbors_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/UserLog.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/UserLog.pm
@@ -0,0 +1,66 @@
+package App::Netdisco::Web::Plugin::AdminTask::UserLog;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+
+register_admin_task(
+    {   tag   => 'userlog',
+        label => 'User Activity Log',
+    }
+);
+
+ajax '/ajax/control/admin/userlog/data' => require_role admin => sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $rs = schema('netdisco')->resultset('UserLog');
+
+    my $exp_params = expand_hash( scalar params );
+
+    my $recordsTotal = $rs->count;
+
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+};
+
+ajax '/ajax/control/admin/userlog/del' => require_role admin => sub {
+    send_error( 'Missing entry', 400 ) unless param('entry');
+
+    schema('netdisco')->txn_do(
+        sub {
+            my $device = schema('netdisco')->resultset('UserLog')
+                ->search( { entry => param('entry') } )->delete;
+        }
+    );
+};
+
+ajax '/ajax/control/admin/userlog/delall' => require_role admin => sub {
+    schema('netdisco')->txn_do(
+        sub {
+            my $device = schema('netdisco')->resultset('UserLog')->delete;
+        }
+    );
+};
+
+ajax '/ajax/content/admin/userlog' => require_role admin => sub {
+
+    content_type('text/html');
+    template 'ajax/admintask/userlog.tt', {}, { layout => undef };
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/AdminTask/Users.pm
+++ b/lib/App/Netdisco/Web/Plugin/AdminTask/Users.pm
@@ -0,0 +1,106 @@
+package App::Netdisco::Web::Plugin::AdminTask::Users;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use Dancer::Plugin::Passphrase;
+
+use App::Netdisco::Web::Plugin;
+use Digest::MD5 ();
+
+register_admin_task({
+  tag => 'users',
+  label => 'User Management',
+  provides_csv => 1,
+});
+
+sub _sanity_ok {
+    return 0 unless param('username')
+      and param('username') =~ m/^[[:print:] ]+$/;
+    return 1;
+}
+
+sub _make_password {
+  my $pass = (shift || passphrase->generate_random);
+  if (setting('safe_password_store')) {
+      return passphrase($pass)->generate;
+  }
+  else {
+      return Digest::MD5::md5_hex($pass),
+  }
+}
+
+ajax '/ajax/control/admin/users/add' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $user = schema('netdisco')->resultset('User')
+        ->create({
+          username => param('username'),
+          password => _make_password(param('password')),
+          fullname => param('fullname'),
+          ldap => (param('ldap') ? \'true' : \'false'),
+          port_control => (param('port_control') ? \'true' : \'false'),
+          admin => (param('admin') ? \'true' : \'false'),
+          note => param('note'),
+        });
+    });
+};
+
+ajax '/ajax/control/admin/users/del' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      schema('netdisco')->resultset('User')
+        ->find({username => param('username')})->delete;
+    });
+};
+
+ajax '/ajax/control/admin/users/update' => require_role admin => sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $user = schema('netdisco')->resultset('User')
+        ->find({username => param('username')});
+      return unless $user;
+
+      $user->update({
+        ((param('password') ne '********')
+          ? (password => _make_password(param('password')))
+          : ()),
+        fullname => param('fullname'),
+        ldap => (param('ldap') ? \'true' : \'false'),
+        port_control => (param('port_control') ? \'true' : \'false'),
+        admin => (param('admin') ? \'true' : \'false'),
+        note => param('note'),
+      });
+    });
+};
+
+get '/ajax/content/admin/users' => require_role admin => sub {
+    my @results = schema('netdisco')->resultset('User')
+      ->search(undef, {
+        '+columns' => {
+          created   => \"to_char(creation, 'YYYY-MM-DD HH24:MI')",
+          last_seen => \"to_char(last_on,  'YYYY-MM-DD HH24:MI')",
+        },
+        order_by => [qw/fullname username/]
+      })->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        template 'ajax/admintask/users.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/admintask/users_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/Device/Addresses.pm
+++ b/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;
--- a/lib/App/Netdisco/Web/Plugin/Device/Details.pm
+++ b/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;
--- a/lib/App/Netdisco/Web/Plugin/Device/Modules.pm
+++ b/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;
--- a/lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm
+++ b/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;
--- a/lib/App/Netdisco/Web/Plugin/Device/Ports.pm
+++ b/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;
--- a/lib/App/Netdisco/Web/Plugin/Inventory.pm
+++ b/lib/App/Netdisco/Web/Plugin/Inventory.pm
@@ -0,0 +1,27 @@
+package App::Netdisco::Web::Plugin::Inventory;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_navbar_item({
+  tag   => 'inventory',
+  path  => '/inventory',
+  label => 'Inventory',
+});
+
+get '/inventory' => require_login sub {
+    my $models = schema('netdisco')->resultset('Device')->get_models();
+    my $releases = schema('netdisco')->resultset('Device')->get_releases();
+
+    var(nav => 'inventory');
+
+    template 'inventory', {
+      models => $models,
+      releases => $releases,
+    };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/Report/ApChannelDist.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/ApChannelDist.pm
@@ -0,0 +1,41 @@
+package App::Netdisco::Web::Plugin::Report::ApChannelDist;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Wireless',
+        tag          => 'apchanneldist',
+        label        => 'Access Point Channel Distribution',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/apchanneldist' => require_login sub {
+    my @results = schema('netdisco')->resultset('DevicePortWireless')->search(
+        { channel => { '!=', '0' } },
+        {   select   => [ 'channel', { count => 'channel' } ],
+            as       => [qw/ channel ch_count /],
+            group_by => [qw/channel/],
+            order_by => { -desc => [qw/count/] },
+        },
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/apchanneldist.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/apchanneldist_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/ApClients.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/ApClients.pm
@@ -0,0 +1,51 @@
+package App::Netdisco::Web::Plugin::Report::ApClients;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Wireless',
+        tag          => 'apclients',
+        label        => 'Access Point Client Count',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/apclients' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(
+        { 'nodes.time_last' => { '>=', \'me.last_macsuck' } },
+        {   select => [ 'ip', 'dns', 'name', 'model', 'location' ],
+            join       => { 'ports' => { 'ssid' => 'nodes' } },
+            '+columns' => [
+                { 'port'        => 'ports.port' },
+                { 'description' => 'ports.name' },
+                { 'ssid'        => 'ssid.ssid' },
+                { 'mac_count'   => { count => 'nodes.mac' } },
+            ],
+            group_by => [
+                'me.ip',       'me.dns',     'me.name',     'me.model',
+                'me.location', 'ports.port', 'ports.descr', 'ports.name', 'ssid.ssid',
+            ],
+            order_by => { -desc => [qw/count/] },
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/apclients.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/apclients_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/ApRadioChannelPower.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/ApRadioChannelPower.pm
@@ -0,0 +1,58 @@
+package App::Netdisco::Web::Plugin::Report::ApRadioChannelPower;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Wireless',
+        tag          => 'apradiochannelpower',
+        label        => 'Access Point Radios Channel and Power',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/apradiochannelpower/data' => require_login sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $rs = schema('netdisco')->resultset('Virtual::ApRadioChannelPower');
+    my $exp_params = expand_hash( scalar params );
+    my $recordsTotal = $rs->count;
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+    };
+
+get '/ajax/content/report/apradiochannelpower' => require_login sub {
+
+    if ( request->is_ajax ) {
+        template 'ajax/report/apradiochannelpower.tt', {},
+            { layout => undef };
+    }
+    else {
+        my @results
+            = schema('netdisco')->resultset('Virtual::ApRadioChannelPower')
+            ->hri->all;
+
+        return unless scalar @results;
+
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/apradiochannelpower_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/DeviceAddrNoDNS.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/DeviceAddrNoDNS.pm
@@ -0,0 +1,42 @@
+package App::Netdisco::Web::Plugin::Report::DeviceAddrNoDNS;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Device',
+        tag          => 'deviceaddrnodns',
+        label        => 'Addresses without DNS Entries',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/deviceaddrnodns' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(
+        { 'device_ips.dns' => undef },
+        {   select       => [ 'ip', 'dns', 'name', 'location', 'contact' ],
+            join         => [qw/device_ips/],
+            '+columns' => [ { 'alias' => 'device_ips.alias' }, ],
+            order_by => { -asc => [qw/me.ip device_ips.alias/] },
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json (\@results);
+        template 'ajax/report/deviceaddrnodns.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/deviceaddrnodns_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/DeviceByLocation.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/DeviceByLocation.pm
@@ -0,0 +1,38 @@
+package App::Netdisco::Web::Plugin::Report::DeviceByLocation;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Device',
+        tag          => 'devicebylocation',
+        label        => 'By Location',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/devicebylocation' => require_login sub {
+    my @results
+        = schema('netdisco')->resultset('Device')
+        ->columns(  [qw/ ip dns name location vendor model /] )
+        ->order_by( [qw/ location name ip vendor model /] )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/devicebylocation.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/devicebylocation_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/DeviceDnsMismatch.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/DeviceDnsMismatch.pm
@@ -0,0 +1,41 @@
+package App::Netdisco::Web::Plugin::Report::DeviceDnsMismatch;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Device',
+        tag          => 'devicednsmismatch',
+        label        => 'Device Name / DNS Mismatches',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/devicednsmismatch' => require_login sub {
+
+    my $suffix = setting('domain_suffix') || '';
+
+    my @results
+        = schema('netdisco')->resultset('Virtual::DeviceDnsMismatch')
+        ->search( undef, { bind => [ $suffix, $suffix ] } )
+        ->columns( [qw/ ip dns name location contact /] )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/devicednsmismatch.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/devicednsmismatch_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/DevicePoeStatus.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/DevicePoeStatus.pm
@@ -0,0 +1,58 @@
+package App::Netdisco::Web::Plugin::Report::DevicePoeStatus;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Device',
+        tag          => 'devicepoestatus',
+        label        => 'Power over Ethernet (PoE) Status',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/devicepoestatus/data' => require_login sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $rs = schema('netdisco')->resultset('Virtual::DevicePoeStatus');
+
+    my $exp_params = expand_hash( scalar params );
+    my $recordsTotal = $rs->count;
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+};
+
+get '/ajax/content/report/devicepoestatus' => require_login sub {
+
+    if ( request->is_ajax ) {
+        template 'ajax/report/devicepoestatus.tt', {}, { layout => undef };
+    }
+    else {
+        my @results
+            = schema('netdisco')->resultset('Virtual::DevicePoeStatus')
+            ->hri->all;
+
+        return unless scalar @results;
+
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/devicepoestatus_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/DuplexMismatch.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/DuplexMismatch.pm
@@ -0,0 +1,36 @@
+package App::Netdisco::Web::Plugin::Report::DuplexMismatch;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'duplexmismatch',
+        label        => 'Duplex Mismatches Between Devices',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/duplexmismatch' => require_login sub {
+    my @results
+        = schema('netdisco')->resultset('Virtual::DuplexMismatch')->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/duplexmismatch.tt', { results => $json, },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/duplexmismatch_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/HalfDuplex.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/HalfDuplex.pm
@@ -0,0 +1,44 @@
+package App::Netdisco::Web::Plugin::Report::HalfDuplex;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'halfduplex',
+        label        => 'Ports in Half Duplex Mode',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/halfduplex' => require_login sub {
+    my $format = param('format');
+    my @results
+        = schema('netdisco')->resultset('DevicePort')
+        ->columns( [qw/ ip port name duplex /] )->search(
+        { up => 'up', duplex => { '-ilike' => 'half' } },
+        {   '+columns' => [qw/ device.dns device.name /],
+            join       => [qw/ device /],
+            collapse   => 1,
+        }
+        )->order_by( [qw/ device.dns port /] )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/halfduplex.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/halfduplex_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/InventoryByModelByOS.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/InventoryByModelByOS.pm
@@ -0,0 +1,30 @@
+package App::Netdisco::Web::Plugin::Report::InventoryByModelByOS;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category => 'Device',
+        tag      => 'inventorybymodelbyos',
+        label    => 'Inventory by Model by OS',
+        provides_csv => 0,
+    }
+);
+
+get '/ajax/content/report/inventorybymodelbyos' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(undef, {
+      columns => [qw/vendor model os os_ver/],
+      select => [ { count => 'os_ver' } ],
+      as => [qw/ os_ver_count /],
+      group_by => [qw/ vendor model os os_ver /],
+      order_by => ['vendor', 'model', { -desc => 'count' }, 'os_ver'],
+    })->hri->all;
+
+    template 'ajax/report/inventorybymodelbyos.tt', { results => \@results, },
+        { layout => undef };
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/IpInventory.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/IpInventory.pm
@@ -0,0 +1,168 @@
+package App::Netdisco::Web::Plugin::Report::IpInventory;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use NetAddr::IP::Lite ':lower';
+
+register_report(
+    {   category     => 'IP',
+        tag          => 'ipinventory',
+        label        => 'IP Inventory',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/ipinventory' => require_login sub {
+
+    # Default to something simple with no results to prevent
+    # "Search failed!" error
+    my $subnet = param('subnet') || '0.0.0.0/32';
+    $subnet = NetAddr::IP::Lite->new($subnet);
+    $subnet = NetAddr::IP::Lite->new('0.0.0.0/32')
+      if (! $subnet) or ($subnet->addr eq '0.0.0.0');
+
+    my $agenot = param('age_invert') || '0';
+    my ( $start, $end ) = param('daterange') =~ /(\d+-\d+-\d+)/gmx;
+
+    my $limit = param('limit') || 256;
+    my $never = param('never') || '0';
+    my $order = [{-desc => 'age'}, {-asc => 'ip'}];
+
+    # We need a reasonable limit to prevent a potential DoS, especially if
+    # 'never' is true.  TODO: Need better input validation, both JS and
+    # server-side to provide user feedback
+    $limit = 8192 if $limit > 8192;
+
+    my $rs1 = schema('netdisco')->resultset('DeviceIp')->search(
+        undef,
+        {   join   => 'device',
+            select => [
+                'alias AS ip',
+                \'NULL as mac',
+                'creation AS time_first',
+                'device.last_discover AS time_last',
+                'dns',
+                \'true AS active',
+                \'false AS node',
+                \qq/replace( date_trunc( 'minute', age( now(), device.last_discover ) ) ::text, 'mon', 'month') AS age/
+            ],
+            as => [qw( ip mac time_first time_last dns active node age)],
+        }
+    )->hri;
+
+    my $rs2 = schema('netdisco')->resultset('NodeIp')->search(
+        undef,
+        {   columns   => [qw( ip mac time_first time_last dns active)],
+            '+select' => [ \'true AS node',
+                           \qq/replace( date_trunc( 'minute', age( now(), time_last ) ) ::text, 'mon', 'month') AS age/
+                         ],
+            '+as'     => [ 'node', 'age' ],
+        }
+    )->hri;
+
+    my $rs3 = schema('netdisco')->resultset('NodeNbt')->search(
+        undef,
+        {   columns   => [qw( ip mac time_first time_last )],
+            '+select' => [
+                'nbname AS dns', 'active',
+                \'true AS node',
+                \qq/replace( date_trunc( 'minute', age( now(), time_last ) ) ::text, 'mon', 'month') AS age/ 
+            ],
+            '+as' => [ 'dns', 'active', 'node', 'age' ],
+        }
+    )->hri;
+
+    my $rs_union = $rs1->union( [ $rs2, $rs3 ] );
+
+    if ( $never ) {
+        $subnet = NetAddr::IP::Lite->new('0.0.0.0/32') if ($subnet->bits ne 32);
+
+        my $rs4 = schema('netdisco')->resultset('Virtual::CidrIps')->search(
+            undef,
+            {   bind => [ $subnet->cidr ],
+                columns   => [qw( ip mac time_first time_last dns active)],
+                '+select' => [ \'false AS node',
+                               \qq/replace( date_trunc( 'minute', age( now(), time_last ) ) ::text, 'mon', 'month') AS age/
+                             ],
+                '+as'     => [ 'node', 'age' ],
+            }
+        )->hri;
+
+        $rs_union = $rs_union->union( [$rs4] );
+    }
+
+    my $rs_sub = $rs_union->search(
+        { ip => { '<<' => $subnet->cidr } },
+        {   select   => [
+                \'DISTINCT ON (ip) ip',
+                'mac',
+                'dns',
+                \qq/date_trunc('second', time_last) AS time_last/,
+                \qq/date_trunc('second', time_first) AS time_first/,
+                'active',
+                'node',
+                'age'
+            ],
+            as => [
+                'ip',     'mac',  'dns',  'time_last', 'time_first',
+                'active', 'node', 'age'
+            ],
+            order_by => [{-asc => 'ip'}, {-desc => 'active'}],
+        }
+    )->as_query;
+
+    my $rs;
+    if ( $start && $end ) {
+        $start = $start . ' 00:00:00';
+        $end   = $end . ' 23:59:59';
+
+        if ( $agenot ) {
+            $rs = $rs_union->search(
+                {   -or => [
+                        time_first => [ undef ],
+                        time_last => [ { '<', $start }, { '>', $end } ]
+                    ]
+                },
+                { from => { me => $rs_sub }, }
+            );
+        }
+        else {
+            $rs = $rs_union->search(
+                {   -or => [
+                      -and => [
+                          time_first => undef,
+                          time_last  => undef,
+                      ],
+                      -and => [
+                          time_last => { '>=', $start },
+                          time_last => { '<=', $end },
+                      ],
+                    ],
+                },
+                { from => { me => $rs_sub }, }
+            );
+        }
+    }
+    else {
+        $rs = $rs_union->search( undef, { from => { me => $rs_sub }, } );
+    }
+
+    my @results = $rs->order_by($order)->limit($limit)->all;
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/ipinventory.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/ipinventory_csv.tt', { results => \@results, },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/ModuleInventory.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/ModuleInventory.pm
@@ -0,0 +1,166 @@
+package App::Netdisco::Web::Plugin::Report::ModuleInventory;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+use List::MoreUtils ();
+
+register_report(
+    {   category     => 'Device',
+        tag          => 'moduleinventory',
+        label        => 'Module Inventory',
+        provides_csv => 1,
+    }
+);
+
+hook 'before' => sub {
+    return
+        unless (
+        request->path eq uri_for('/report/moduleinventory')->path
+        or index( request->path,
+            uri_for('/ajax/content/report/moduleinventory')->path ) == 0
+        );
+
+    # view settings
+    var('module_options' => [
+            {   name    => 'fruonly',
+                label   => 'FRU Only',
+                default => 'on'
+            },
+            {   name    => 'matchall',
+                label   => 'Match All Options',
+                default => 'on'
+            },
+        ]
+    );
+};
+
+hook 'before_template' => sub {
+    my $tokens = shift;
+
+    return
+        unless (
+        request->path eq uri_for('/report/moduleinventory')->path
+        or index( request->path,
+            uri_for('/ajax/content/report/moduleinventory')->path ) == 0
+        );
+
+    # used in the search sidebar template to set selected items
+    foreach my $opt (qw/class/) {
+        my $p = (
+            ref [] eq ref param($opt)
+            ? param($opt)
+            : ( param($opt) ? [ param($opt) ] : [] )
+        );
+        $tokens->{"${opt}_lkp"} = { map { $_ => 1 } @$p };
+    }
+};
+
+get '/ajax/content/report/moduleinventory/data' => require_login sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $rs = schema('netdisco')->resultset('DeviceModule');
+    $rs = $rs->search( { -bool => 'fru' } ) if param('fruonly');
+
+    if ( param('device') ) {
+        my @ips = schema('netdisco')->resultset('Device')
+            ->search_fuzzy( param('device') )->get_column('ip')->all;
+
+        params->{'ips'} = \@ips;
+    }
+
+    $rs = $rs->search_by_field( scalar params )->columns(
+        [   'ip',     'description', 'name',   'class',
+            'type',   'serial',      'hw_ver', 'fw_ver',
+            'sw_ver', 'model'
+        ]
+        )->search(
+        {},
+        {   '+columns' => [qw/ device.dns device.name /],
+            join       => 'device',
+            collapse   => 1,
+        }
+        );
+
+    my $exp_params = expand_hash( scalar params );
+
+    my $recordsTotal = $rs->count;
+
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+};
+
+get '/ajax/content/report/moduleinventory' => require_login sub {
+
+    my $has_opt = List::MoreUtils::any { param($_) }
+    qw/device description name type model serial class/;
+
+    my $rs = schema('netdisco')->resultset('DeviceModule');
+    $rs = $rs->search( { -bool => 'fru' } ) if param('fruonly');
+    my @results;
+
+    if ( $has_opt && !request->is_ajax ) {
+
+        if ( param('device') ) {
+            my @ips = schema('netdisco')->resultset('Device')
+                ->search_fuzzy( param('device') )->get_column('ip')->all;
+
+            params->{'ips'} = \@ips;
+        }
+
+        @results = $rs->search_by_field( scalar params )->columns(
+            [   'ip',     'description', 'name',   'class',
+                'type',   'serial',      'hw_ver', 'fw_ver',
+                'sw_ver', 'model'
+            ]
+            )->search(
+            {},
+            {   '+columns' => [qw/ device.dns device.name /],
+                join       => 'device',
+                collapse   => 1,
+            }
+            )->hri->all;
+
+        return unless scalar @results;
+    }
+    elsif ( !$has_opt ) {
+        @results = $rs->search(
+            { class => { '!=', undef } },
+            {   select   => [ 'class', { count => 'class' } ],
+                as       => [qw/ class count /],
+                group_by => [qw/ class /]
+            }
+        )->order_by( { -desc => 'count' } )->hri->all;
+
+        return unless scalar @results;
+    }
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/moduleinventory.tt',
+            { results => $json, opt => $has_opt },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/moduleinventory_csv.tt',
+            { results => \@results, opt => $has_opt },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/Netbios.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/Netbios.pm
@@ -0,0 +1,110 @@
+package App::Netdisco::Web::Plugin::Report::Netbios;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Node',
+        tag          => 'netbios',
+        label        => 'NetBIOS Inventory',
+        provides_csv => 1,
+    }
+);
+
+hook 'before_template' => sub {
+    my $tokens = shift;
+
+    return
+        unless ( request->path eq uri_for('/report/netbios')->path
+        or
+        index( request->path, uri_for('/ajax/content/report/netbios')->path )
+        == 0 );
+
+    # used in the search sidebar template to set selected items
+    foreach my $opt (qw/domain/) {
+        my $p = (
+            ref [] eq ref param($opt)
+            ? param($opt)
+            : ( param($opt) ? [ param($opt) ] : [] )
+        );
+        $tokens->{"${opt}_lkp"} = { map { $_ => 1 } @$p };
+    }
+};
+
+get '/ajax/content/report/netbios/data' => require_login sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $domain = param('domain');
+
+    my $rs = schema('netdisco')->resultset('NodeNbt');
+
+    my $search = $domain eq 'blank' ? '' : $domain;
+    $rs = $rs->search( { domain => $search } )
+        ->order_by( [ { -asc => 'domain' }, { -desc => 'time_last' } ] );
+
+    my $exp_params = expand_hash( scalar params );
+
+    my $recordsTotal = $rs->count;
+
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+};
+
+get '/ajax/content/report/netbios' => require_login sub {
+
+    my $domain = param('domain');
+
+    my $rs = schema('netdisco')->resultset('NodeNbt');
+    my @results;
+
+    if ( defined $domain && !request->is_ajax ) {
+        my $search = $domain eq 'blank' ? '' : $domain;
+        @results
+            = $rs->search( { domain => $search } )
+            ->order_by( [ { -asc => 'domain' }, { -desc => 'time_last' } ] )
+            ->hri->all;
+
+        return unless scalar @results;
+    }
+    elsif ( !defined $domain ) {
+        @results = $rs->search(
+            {},
+            {   select   => [ 'domain', { count => 'domain' } ],
+                as       => [qw/ domain count /],
+                group_by => [qw/ domain /]
+            }
+        )->order_by( { -desc => 'count' } )->hri->all;
+
+        return unless scalar @results;
+    }
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/netbios.tt',
+            { results => $json, opt => $domain },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/netbios_csv.tt',
+            { results => \@results, opt => $domain },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/NodeMultiIPs.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/NodeMultiIPs.pm
@@ -0,0 +1,51 @@
+package App::Netdisco::Web::Plugin::Report::NodeMultiIPs;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Node',
+        tag          => 'nodemultiips',
+        label        => 'Nodes with multiple active IP addresses',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/nodemultiips' => require_login sub {
+    my @results = schema('netdisco')->resultset('Node')->search(
+        {},
+        {   select     => [ 'mac', 'switch', 'port' ],
+            join       => [qw/device ips oui/],
+            '+columns' => [
+                { 'dns'      => 'device.dns' },
+                { 'name'     => 'device.name' },
+                { 'ip_count' => { count => 'ips.ip' } },
+                { 'vendor'   => 'oui.company' }
+            ],
+            group_by => [
+                qw/ me.mac me.switch me.port device.dns device.name oui.company/
+            ],
+            having => \[ 'count(ips.ip) > ?', [ count => 1 ] ],
+            order_by => { -desc => [qw/count/] },
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/nodemultiips.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/nodemultiips_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/NodeVendor.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/NodeVendor.pm
@@ -0,0 +1,133 @@
+package App::Netdisco::Web::Plugin::Report::NodeVendor;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+use App::Netdisco::Util::ExpandParams 'expand_hash';
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Node',
+        tag          => 'nodevendor',
+        label        => 'Node Vendor Inventory',
+        provides_csv => 1,
+    }
+);
+
+hook 'before_template' => sub {
+    my $tokens = shift;
+
+    return
+        unless (
+        request->path eq uri_for('/report/nodevendor')->path
+        or index( request->path,
+            uri_for('/ajax/content/report/nodevendor')->path ) == 0
+        );
+
+    # used in the search sidebar template to set selected items
+    foreach my $opt (qw/vendor/) {
+        my $p = (
+            ref [] eq ref param($opt)
+            ? param($opt)
+            : ( param($opt) ? [ param($opt) ] : [] )
+        );
+        $tokens->{"${opt}_lkp"} = { map { $_ => 1 } @$p };
+    }
+};
+
+get '/ajax/content/report/nodevendor/data' => require_login sub {
+    send_error( 'Missing parameter', 400 )
+        unless ( param('draw') && param('draw') =~ /\d+/ );
+
+    my $vendor = param('vendor');
+
+    my $rs = schema('netdisco')->resultset('Node');
+
+        my $match = $vendor eq 'blank' ? undef : $vendor;
+
+        $rs = $rs->search( { 'oui.abbrev' => $match },
+            {   '+columns' => [qw/ device.dns device.name oui.abbrev /],
+                join       => [qw/ oui device /],
+                collapse   => 1,
+            });
+
+        unless ( param('archived') ) {
+            $rs = $rs->search( { -bool => 'me.active' } );
+        }
+
+    my $exp_params = expand_hash( scalar params );
+
+    my $recordsTotal = $rs->count;
+
+    my @data = $rs->get_datatables_data($exp_params)->hri->all;
+
+    my $recordsFiltered = $rs->get_datatables_filtered_count($exp_params);
+
+    content_type 'application/json';
+    return to_json(
+        {   draw            => int( param('draw') ),
+            recordsTotal    => int($recordsTotal),
+            recordsFiltered => int($recordsFiltered),
+            data            => \@data,
+        }
+    );
+};
+
+get '/ajax/content/report/nodevendor' => require_login sub {
+
+    my $vendor = param('vendor');
+
+    my $rs = schema('netdisco')->resultset('Node');
+    my @results;
+    
+    if ( defined $vendor && !request->is_ajax ) {
+
+        my $match = $vendor eq 'blank' ? undef : $vendor;
+
+        $rs = $rs->search( { 'oui.abbrev' => $match },
+            {   '+columns' => [qw/ device.dns device.name oui.abbrev /],
+                join       => [qw/ oui device /],
+                collapse   => 1,
+            });
+
+        unless ( param('archived') ) {
+            $rs = $rs->search( { -bool => 'me.active' } );
+        }
+
+        @results = $rs->hri->all;
+        return unless scalar @results;
+    }
+    elsif ( !defined $vendor ) {
+        $rs = $rs->search(
+            { },
+            {   join     => 'oui',
+                select   => [ 'oui.abbrev', { count => 'me.mac' } ],
+                as       => [qw/ vendor count /],
+                group_by => [qw/ oui.abbrev /]
+            }
+        )->order_by( { -desc => 'count' } );
+
+        unless ( param('archived') ) {
+            $rs = $rs->search( { -bool => 'me.active' } );
+        }
+        
+        @results = $rs->hri->all;
+        return unless scalar @results;
+    }
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/nodevendor.tt',
+            { results => $json, opt => $vendor },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/nodevendor_csv.tt',
+            { results => \@results, opt => $vendor },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/NodesDiscovered.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/NodesDiscovered.pm
@@ -0,0 +1,54 @@
+package App::Netdisco::Web::Plugin::Report::NodesDiscovered;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::Util::Web 'sql_match';
+
+register_report(
+    {   category     => 'Node',
+        tag          => 'nodesdiscovered',
+        label        => 'Nodes discovered through LLDP/CDP',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/nodesdiscovered' => require_login sub {
+    my $op = param('matchall') ? '-and' : '-or';
+
+    my @results = schema('netdisco')->resultset('Virtual::NodesDiscovered')
+        ->search({
+            $op => [
+              (param('aps') ?
+                ('me.remote_type' => { -ilike => 'AP:%' }) : ()),
+              (param('phones') ?
+                ('me.remote_type' => { -ilike => '%ip_phone%' }) : ()),
+              (param('remote_id') ?
+                ('me.remote_id' => { -ilike => scalar sql_match(param('remote_id')) }) : ()),
+              (param('remote_type') ? ('-or' => [
+                map  {( 'me.remote_type' => { -ilike => scalar sql_match($_) } )}
+                grep { $_ }
+                     (ref param('remote_type') ? @{param('remote_type')} : param('remote_type'))
+                ]) : ()),
+            ],
+        })
+        ->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/nodesdiscovered.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/nodesdiscovered_csv.tt',
+            { results => \@results },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortAdminDown.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortAdminDown.pm
@@ -0,0 +1,45 @@
+package App::Netdisco::Web::Plugin::Report::PortAdminDown;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'portadmindown',
+        label        => 'Ports administratively disabled',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/portadmindown' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(
+        { 'up_admin' => 'down' },
+        {   select       => [ 'ip', 'dns', 'name' ],
+            join       => [ 'ports' ],
+            '+columns' => [
+                { 'port'        => 'ports.port' },
+                { 'description' => 'ports.name' },
+                { 'up_admin'    => 'ports.up_admin' },
+            ]
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json (\@results);
+        template 'ajax/report/portadmindown.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portadmindown_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortBlocking.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortBlocking.pm
@@ -0,0 +1,45 @@
+package App::Netdisco::Web::Plugin::Report::PortBlocking;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'portblocking',
+        label        => 'Ports that are blocking',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/portblocking' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(
+        { 'stp' => [ 'blocking', 'broken' ], 'up' => { '!=', 'down' } },
+        {   select       => [ 'ip', 'dns', 'name' ],
+            join         => ['ports'],
+            '+columns'   => [
+                { 'port'        => 'ports.port' },
+                { 'description' => 'ports.name' },
+                { 'stp'         => 'ports.stp' },
+            ]
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json (\@results);
+        template 'ajax/report/portblocking.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portblocking_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortLog.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortLog.pm
@@ -0,0 +1,66 @@
+package App::Netdisco::Web::Plugin::Report::PortLog;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report({
+  tag => 'portlog',
+  label => 'Port Control Log',
+  category => 'Port', # not used
+  hidden => true,
+});
+
+sub _sanity_ok {
+    return 0 unless
+      param('ip') =~ m/^[[:print:]]+$/
+      and param('port') =~ m/^[[:print:]]+$/
+      and param('log') =~ m/^[[:print:]]+$/;
+
+    return 1;
+}
+
+ajax '/ajax/control/report/portlog/add' => require_login sub {
+    send_error('Bad Request', 400) unless _sanity_ok();
+
+    schema('netdisco')->txn_do(sub {
+      my $user = schema('netdisco')->resultset('DevicePortLog')
+        ->create({
+          ip => param('ip'),
+          port => param('port'),
+          reason => 'other',
+          log => param('log'),
+          username => session('logged_in_user'),
+          userip => request->remote_address,
+          action => 'comment',
+        });
+    });
+};
+
+ajax '/ajax/content/report/portlog' => require_login sub {
+    my $device = param('q');
+    my $port = param('f');
+    send_error('Bad Request', 400) unless $device and $port;
+
+    $device = schema('netdisco')->resultset('Device')
+      ->search_for_device($device);
+    return unless $device;
+
+    my $set = schema('netdisco')->resultset('DevicePortLog')->search({
+        ip => $device->ip,
+        port => $port,
+      }, {
+        order_by => { -desc => [qw/creation/] },
+        rows => 200,
+      })->with_times;
+
+    content_type('text/html');
+    template 'ajax/report/portlog.tt', {
+      results => $set,
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortMultiNodes.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortMultiNodes.pm
@@ -0,0 +1,53 @@
+package App::Netdisco::Web::Plugin::Report::PortMultiNodes;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'portmultinodes',
+        label        => 'Ports with multiple nodes attached',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/portmultinodes' => require_login sub {
+    my @results = schema('netdisco')->resultset('Device')->search(
+        {   'ports.remote_ip' => undef,
+            (param('vlan') ?
+              ('ports.vlan' => param('vlan'), 'nodes.vlan' => param('vlan')) : ()),
+            'nodes.active'    => 1,
+            'wireless.port'   => undef
+        },
+        {   select => [ 'ip', 'dns', 'name' ],
+            join       => { 'ports' => [ 'wireless', 'nodes' ] },
+            '+columns' => [
+                { 'port'        => 'ports.port' },
+                { 'description' => 'ports.name' },
+                { 'mac_count'   => { count => 'nodes.mac' } },
+            ],
+            group_by => [qw/me.ip me.dns me.name ports.port ports.name/],
+            having   => \[ 'count(nodes.mac) > ?', [ count => 1 ] ],
+            order_by => { -desc => [qw/count/] },
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json (\@results);
+        template 'ajax/report/portmultinodes.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portmultinodes_csv.tt',
+            { results => \@results, },
+            { layout  => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortSsid.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortSsid.pm
@@ -0,0 +1,79 @@
+package App::Netdisco::Web::Plugin::Report::PortSsid;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Port',
+        tag          => 'portssid',
+        label        => 'Port SSID Inventory',
+        provides_csv => 1,
+    }
+);
+
+hook 'before_template' => sub {
+    my $tokens = shift;
+
+    return
+        unless (
+        request->path eq uri_for('/report/portssid')->path
+        or index(
+            request->path, uri_for('/ajax/content/report/portssid')->path
+        ) == 0
+        );
+
+    # used in the search sidebar template to set selected items
+    foreach my $opt (qw/ssid/) {
+        my $p = (
+            ref [] eq ref param($opt)
+            ? param($opt)
+            : ( param($opt) ? [ param($opt) ] : [] )
+        );
+        $tokens->{"${opt}_lkp"} = { map { $_ => 1 } @$p };
+    }
+};
+
+get '/ajax/content/report/portssid' => require_login sub {
+
+    my $ssid = param('ssid');
+
+    my $rs = schema('netdisco')->resultset('DevicePortSsid');
+
+    if ( defined $ssid ) {
+
+        $rs = $rs->search(
+            { ssid => $ssid },
+            {   '+columns' => [
+                    qw/ device.dns device.name device.model device.vendor port.port/
+                ],
+                join     => [qw/ device port /],
+                collapse => 1,
+            }
+        )->order_by( [qw/ port.ip port.port /] )->hri;
+    }
+    else {
+        $rs = $rs->get_ssids->hri;
+
+    }
+
+    my @results = $rs->all;
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/portssid.tt',
+            { results => $json, opt => $ssid },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portssid_csv.tt',
+            { results => \@results, opt => $ssid },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/PortUtilization.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/PortUtilization.pm
@@ -0,0 +1,33 @@
+package App::Netdisco::Web::Plugin::Report::PortUtilization;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category => 'Device',
+        tag      => 'portutilization',
+        label    => 'Port Utilization',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/portutilization' => require_login sub {
+    return unless schema('netdisco')->resultset('Device')->count;
+    my @results = schema('netdisco')->resultset('Virtual::PortUtilization')->hri->all;
+
+    if (request->is_ajax) {
+        my $json = to_json (\@results);
+        template 'ajax/report/portutilization.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portutilization_csv.tt', { results => \@results, },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/SsidInventory.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/SsidInventory.pm
@@ -0,0 +1,35 @@
+package App::Netdisco::Web::Plugin::Report::SsidInventory;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'Wireless',
+        tag          => 'ssidinventory',
+        label        => 'SSID Inventory',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/ssidinventory' => require_login sub {
+    my @results = schema('netdisco')->resultset('DevicePortSsid')
+        ->get_ssids->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/report/portssid.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/portssid_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/SubnetUtilization.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/SubnetUtilization.pm
@@ -0,0 +1,42 @@
+package App::Netdisco::Web::Plugin::Report::SubnetUtilization;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report({
+  category     => 'IP',
+  tag          => 'subnets',
+  label        => 'Subnet Utilization',
+ provides_csv => 1,
+});
+
+get '/ajax/content/report/subnets' => require_login sub {
+    my $subnet = param('subnet') || '0.0.0.0/32';
+    my $agenot = param('age_invert') || '0';
+    my ( $start, $end ) = param('daterange') =~ /(\d+-\d+-\d+)/gmx;
+
+    $start = $start . ' 00:00:00';
+    $end   = $end . ' 23:59:59';
+
+    my @results = schema('netdisco')->resultset('Virtual::SubnetUtilization')
+      ->search(undef,{
+        bind => [ $subnet, $start, $end, $start, $subnet, $start, $start ],
+      })->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        template 'ajax/report/subnets.tt', { results => \@results },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/subnets_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Report/VlanInventory.pm
+++ b/lib/App/Netdisco/Web/Plugin/Report/VlanInventory.pm
@@ -0,0 +1,46 @@
+package App::Netdisco::Web::Plugin::Report::VlanInventory;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category     => 'VLAN',
+        tag          => 'vlaninventory',
+        label        => 'VLAN Inventory',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/vlaninventory' => require_login sub {
+    my @results = schema('netdisco')->resultset('DeviceVlan')->search(
+        { 'me.description' => { '!=', 'NULL' } },
+        {   join   => { 'ports' => 'vlan' },
+            select => [
+                'me.vlan',
+                'me.description',
+                { count => { distinct => 'me.ip' } },
+                { count => 'ports.vlan' }
+            ],
+            as       => [qw/ vlan description dcount pcount /],
+            group_by => [qw/ me.vlan me.description /],
+        }
+    )->hri->all;
+
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json (\@results);
+        template 'ajax/report/vlaninventory.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/vlaninventory_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/Search/Device.pm
+++ b/lib/App/Netdisco/Web/Plugin/Search/Device.pm
@@ -0,0 +1,53 @@
+package App::Netdisco::Web::Plugin::Search::Device;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use List::MoreUtils ();
+
+use App::Netdisco::Web::Plugin;
+
+register_search_tab(
+    { tag => 'device', label => 'Device', provides_csv => 1 } );
+
+# device with various properties or a default match-all
+get '/ajax/content/search/device' => require_login sub {
+    my $has_opt = List::MoreUtils::any { param($_) }
+      qw/name location dns ip description model os os_ver vendor layers/;
+    my $rs;
+
+    if ($has_opt) {
+        $rs = schema('netdisco')->resultset('Device')->columns(
+            [   "ip",       "dns",   "name",   "contact",
+                "location", "model", "os_ver", "serial"
+            ]
+        )->with_times->search_by_field( scalar params );
+    }
+    else {
+        my $q = param('q');
+        send_error( 'Missing query', 400 ) unless $q;
+
+        $rs = schema('netdisco')->resultset('Device')->columns(
+            [   "ip",       "dns",   "name",   "contact",
+                "location", "model", "os_ver", "serial"
+            ]
+        )->with_times->search_fuzzy($q);
+    }
+
+    my @results = $rs->hri->all;
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/search/device.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/search/device_csv.tt', { results => \@results, },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Search/Node.pm
+++ b/lib/App/Netdisco/Web/Plugin/Search/Node.pm
@@ -0,0 +1,184 @@
+package App::Netdisco::Web::Plugin::Search::Node;
+
+use Dancer ':syntax';
+use Dancer::Plugin::Ajax;
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use NetAddr::IP::Lite ':lower';
+use NetAddr::MAC ();
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::Util::Web 'sql_match';
+
+register_search_tab({ tag => 'node', label => 'Node' });
+
+# nodes matching the param as an IP or DNS hostname or MAC
+ajax '/ajax/content/search/node' => require_login sub {
+    my $node = param('q');
+    send_error('Missing node', 400) unless $node;
+    content_type('text/html');
+
+    my $agenot = param('age_invert') || '0';
+    my ( $start, $end ) = param('daterange') =~ m/(\d+-\d+-\d+)/gmx;
+
+    my $mac = NetAddr::MAC->new(mac => $node);
+    my @active = (param('archived') ? () : (-bool => 'active'));
+
+    my (@times, @wifitimes, @porttimes);
+    if ($start and $end) {
+        $start = $start . ' 00:00:00';
+        $end   = $end   . ' 23:59:59';
+        if ($agenot) {
+            @times = (-or => [
+              time_first => [ { '<', $start }, undef ],
+              time_last => { '>', $end },
+            ]);
+            @wifitimes = (-or => [
+              time_last => { '<', $start },
+              time_last => { '>', $end },
+            ]);
+            @porttimes = (-or => [
+              creation => { '<', $start },
+              creation => { '>', $end },
+            ]);
+        }
+        else {
+            @times = (-and => [
+              time_first => { '>=', $start },
+              time_last  => { '<=', $end },
+            ]);
+            @wifitimes = (-and => [
+              time_last => { '>=', $start },
+              time_last => { '<=', $end },
+            ]);
+            @porttimes = (-and => [
+              creation => { '>=', $start },
+              creation => { '<=', $end },
+            ]);
+        }
+    }
+
+    my ($likeval, $likeclause) = sql_match($node, not param('partial'));
+    my $using_wildcards = (($likeval ne $node) ? 1 : 0);
+
+    my @where_mac =
+      ($using_wildcards ? \['me.mac::text ILIKE ?', $likeval]
+                        : ((!defined $mac or $mac->errstr) ? \'0=1' : ('me.mac' => $mac->as_ieee)) );
+
+    my $sightings = schema('netdisco')->resultset('Node')
+      ->search({-and => [@where_mac, @active, @times]}, {
+          order_by => {'-desc' => 'time_last'},
+          '+columns' => [
+            'device.dns',
+            { time_first_stamp => \"to_char(time_first, 'YYYY-MM-DD HH24:MI')" },
+            { time_last_stamp =>  \"to_char(time_last, 'YYYY-MM-DD HH24:MI')" },
+          ],
+          join => 'device',
+      });
+
+    my $ips = schema('netdisco')->resultset('NodeIp')
+      ->search({-and => [@where_mac, @active, @times]}, {
+          order_by => {'-desc' => 'time_last'},
+          '+columns' => [
+            'oui.company',
+            'oui.abbrev',
+            { time_first_stamp => \"to_char(time_first, 'YYYY-MM-DD HH24:MI')" },
+            { time_last_stamp =>  \"to_char(time_last, 'YYYY-MM-DD HH24:MI')" },
+          ],
+          join => 'oui'
+      });
+
+    my $netbios = schema('netdisco')->resultset('NodeNbt')
+      ->search({-and => [@where_mac, @active, @times]}, {
+          order_by => {'-desc' => 'time_last'},
+          '+columns' => [
+            'oui.company',
+            'oui.abbrev',
+            { time_first_stamp => \"to_char(time_first, 'YYYY-MM-DD HH24:MI')" },
+            { time_last_stamp =>  \"to_char(time_last, 'YYYY-MM-DD HH24:MI')" },
+          ],
+          join => 'oui'
+      });
+
+    my $wireless = schema('netdisco')->resultset('NodeWireless')->search(
+        { -and => [@where_mac, @wifitimes] },
+        { order_by   => { '-desc' => 'time_last' },
+          '+columns' => [
+            'oui.company',
+            'oui.abbrev',
+            {
+              time_last_stamp => \"to_char(time_last, 'YYYY-MM-DD HH24:MI')"
+            }],
+          join => 'oui'
+        }
+    );
+
+    my $rs_dp = schema('netdisco')->resultset('DevicePort');
+    if ($sightings->has_rows or $ips->has_rows or $netbios->has_rows) {
+        my $ports = param('deviceports')
+          ? $rs_dp->search({ -and => [@where_mac] }) : undef;
+
+        return template 'ajax/search/node_by_mac.tt', {
+          ips       => $ips,
+          sightings => $sightings,
+          ports     => $ports,
+          wireless  => $wireless,
+          netbios   => $netbios,
+        }, { layout => undef };
+    }
+    else {
+        my $ports = param('deviceports')
+          ? $rs_dp->search({ -and => [@where_mac, @porttimes] }) : undef;
+
+        if (defined $ports and $ports->has_rows) {
+            return template 'ajax/search/node_by_mac.tt', {
+              ips       => $ips,
+              sightings => $sightings,
+              ports     => $ports,
+              wireless  => $wireless,
+              netbios   => $netbios,
+            }, { layout => undef };
+        }
+    }
+
+    my $set = schema('netdisco')->resultset('NodeNbt')
+        ->search_by_name({nbname => $likeval, @active, @times});
+
+    unless ( $set->has_rows ) {
+        if (my $ip = NetAddr::IP::Lite->new($node)) {
+            # search_by_ip() will extract cidr notation if necessary
+            $set = schema('netdisco')->resultset('NodeIp')
+              ->search_by_ip({ip => $ip, @active, @times});
+        }
+        else {
+            $likeval .= setting('domain_suffix')
+              if index($node, setting('domain_suffix')) == -1;
+
+            $set = schema('netdisco')->resultset('NodeIp')
+              ->search_by_dns({dns => $likeval, @active, @times});
+
+            # if the user selects Vendor search opt, then
+            # we'll try the OUI company name as a fallback
+
+            if (param('show_vendor') and not $set->has_rows) {
+                $set = schema('netdisco')->resultset('NodeIp')
+                  ->with_times
+                  ->search(
+                    {'oui.company' => { -ilike => ''.sql_match($node)}, @times},
+                    {'prefetch' => 'oui'},
+                  );
+            }
+        }
+    }
+
+    return unless $set and $set->has_rows;
+    $set = $set->search_rs({}, { order_by => 'me.mac' });
+
+    template 'ajax/search/node_by_ip.tt', {
+      macs => $set,
+      archive_filter => {@active},
+    }, { layout => undef };
+};
+
+true;
--- a/lib/App/Netdisco/Web/Plugin/Search/Port.pm
+++ b/lib/App/Netdisco/Web/Plugin/Search/Port.pm
@@ -0,0 +1,65 @@
+package App::Netdisco::Web::Plugin::Search::Port;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+use App::Netdisco::Util::Web 'sql_match';
+
+register_search_tab( { tag => 'port', label => 'Port', provides_csv => 1 } );
+
+# device ports with a description (er, name) matching
+get '/ajax/content/search/port' => require_login sub {
+    my $q = param('q');
+    send_error( 'Missing query', 400 ) unless $q;
+    my $rs;
+
+    if ( $q =~ m/^\d+$/ ) {
+        $rs
+            = schema('netdisco')->resultset('DevicePort')
+            ->columns( [qw/ ip port name descr /] )->search(
+            { "port_vlans.vlan" => $q },
+            {   '+columns' => [qw/ device.dns device.name port_vlans.vlan /],
+                join       => [qw/ port_vlans device /]
+            }
+            );
+    }
+    else {
+        my ( $likeval, $likeclause ) = sql_match($q);
+
+        $rs
+            = schema('netdisco')->resultset('DevicePort')
+            ->columns( [qw/ ip port name descr /] )->search(
+            {   -or => [
+                    { "me.name" => ( param('partial') ? $likeclause : $q ) },
+                    (   length $q == 17
+                        ? { "me.mac" => $q }
+                        : \[ 'me.mac::text ILIKE ?', $likeval ]
+                    ),
+                    { "me.remote_id"   => $likeclause },
+                    { "me.remote_type" => $likeclause },
+                ]
+            },
+            {   '+columns' => [qw/ device.dns device.name port_vlans.vlan /],
+                join       => [qw/ port_vlans device /]
+            }
+            );
+    }
+
+    my @results = $rs->hri->all;
+    return unless scalar @results;
+
+    if ( request->is_ajax ) {
+        my $json = to_json( \@results );
+        template 'ajax/search/port.tt', { results => $json },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/search/port_csv.tt', { results => \@results },
+            { layout => undef };
+    }
+};
+
+1;
--- a/lib/App/Netdisco/Web/Plugin/Search/VLAN.pm
+++ b/lib/App/Netdisco/Web/Plugin/Search/VLAN.pm
@@ -0,0 +1,41 @@
+package App::Netdisco::Web::Plugin::Search::VLAN;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_search_tab( { tag => 'vlan', label => 'VLAN', provides_csv => 1 } );
+
+# devices carrying vlan xxx
+get '/ajax/content/search/vlan' => require_login sub {
+    my $q = param('q');
+    send_error( 'Missing query', 400 ) unless $q;
+    my $rs;
+
+    if ( $q =~ m/^\d+$/ ) {
+        $rs = schema('netdisco')->resultset('Device')
+            ->carrying_vlan( { vlan => $q } );
+    }
+    else {
+        $rs = schema('netdisco')->resultset('Device')
+            ->carrying_vlan_name( { name => $q } );
+    }
+
+    my @results = $rs->hri->all;
+    return unless scalar @results;
+
+    if (request->is_ajax) {
+        my $json = to_json( \@results );
+        template 'ajax/search/vlan.tt', { results => $json },
+          { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/search/vlan_csv.tt', { results => \@results },
+          { layout => undef };
+    }
+};
+
+1;