Add IP Phones discovered through LLDP/CDP report

Netdisco/lib/App/Netdisco/DB/Result/Virtual/PhonesDiscovered.pm

@@ -0,0 +1,69 @@
+package App::Netdisco::DB::Result::Virtual::PhonesDiscovered;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
+
+__PACKAGE__->table('phones_discovered');
+__PACKAGE__->result_source_instance->is_virtual(1);
+__PACKAGE__->result_source_instance->view_definition(<<ENDSQL
+SELECT d.ip,
+       d.dns,
+       d.name,
+       p.port,
+       p.remote_ip,
+       p.remote_port,
+       p.remote_type,
+       p.remote_id
+FROM device_port p,
+     device d
+WHERE d.ip = p.ip
+  AND NOT EXISTS
+    (SELECT 1
+     FROM device_port q
+     WHERE q.ip = p.remote_ip
+       AND q.port = p.remote_port)
+  AND NOT EXISTS
+    (SELECT 1
+     FROM device_ip a,
+          device_port q
+     WHERE a.alias = p.remote_ip
+       AND q.ip = a.ip
+       AND q.port = p.remote_port)
+  AND p.remote_ip IS NOT NULL
+  AND p.remote_port IS NOT NULL
+  AND p.remote_type ILIKE '%ip_phone%'
+ENDSQL
+);
+
+__PACKAGE__->add_columns(
+  'ip' => {
+    data_type => 'inet',
+  },
+  'dns' => {
+    data_type => 'text',
+  },
+  'name' => {
+    data_type => 'text',
+  },
+  'port' => {
+    data_type => 'text',
+  },
+  'remote_ip' => {
+    data_type => 'inet',
+  },
+  'remote_port' => {
+    data_type => 'text',
+  },
+  'remote_type' => {
+    data_type => 'text',
+  },
+  'remote_id' => {
+    data_type => 'text',
+  },
+);
+
+1;

Netdisco/lib/App/Netdisco/Web/Plugin/Report/PhonesDiscovered.pm

@@ -0,0 +1,32 @@
+package App::Netdisco::Web::Plugin::Report::PhonesDiscovered;
+
+use Dancer ':syntax';
+use Dancer::Plugin::DBIC;
+use Dancer::Plugin::Auth::Extensible;
+
+use App::Netdisco::Web::Plugin;
+
+register_report(
+    {   category => 'Node',
+        tag      => 'phonesdiscovered',
+        label    => 'IP Phones discovered through LLDP/CDP',
+        provides_csv => 1,
+    }
+);
+
+get '/ajax/content/report/phonesdiscovered' => require_login sub {
+    my $set = schema('netdisco')->resultset('Virtual::PhonesDiscovered');
+    return unless $set->count;
+
+    if (request->is_ajax) {
+        template 'ajax/report/phonesdiscovered.tt', { results => $set, },
+            { layout => undef };
+    }
+    else {
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        template 'ajax/report/phonesdiscovered_csv.tt', { results => $set, },
+            { layout => undef };
+    }
+};
+
+true;