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/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;