add csv download option to device addresses

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

@@ -7,22 +7,46 @@ use Dancer::Plugin::Auth::Extensible;
 
 use App::Netdisco::Web::Plugin;
 
-register_device_tab({ tag => 'addresses', label => 'Addresses' });
+register_device_tab( { tag => 'addresses', label => 'Addresses' } );
 
 # device interface addresses
 ajax '/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 $device
+        = schema('netdisco')->resultset('Device')->search_for_device($q)
+        or send_error( 'Bad device', 400 );
 
-    my $set = $device->device_ips->search({}, {order_by => 'alias'});
+    my $set = $device->device_ips->search( {}, { order_by => 'alias' } );
     return unless $set->count;
 
     content_type('text/html');
-    template 'ajax/device/addresses.tt', {
-      results => $set,
-    }, { layout => undef };
+    template 'ajax/device/addresses.tt', { results => $set, },
+        { layout => undef };
+};
+
+get '/device/addresses' => require_login sub {
+    my $q      = param('q');
+    my $format = param('format');
+
+    my $device
+        = schema('netdisco')->resultset('Device')->search_for_device($q)
+        or send_error( 'Bad device', 400 );
+
+    my $set = $device->device_ips->search( {}, { order_by => 'alias' } );
+    return unless $set->count;
+
+    if ( $format eq 'csv' ) {
+
+        header( 'Content-Type' => 'text/comma-separated-values' );
+        header( 'Content-Disposition' =>
+                "attachment; filename=\"addresses.csv\"" );
+        template 'ajax/device/addresses_csv.tt', { results => $set, },
+            { layout => undef };
+    }
+    else {
+        return;
+    }
 };
 
 true;

Netdisco/share/views/ajax/device/addresses.tt

@@ -1,3 +1,4 @@
+[% INCLUDE "download_as.tt" %]
 <table class="table table-bordered table-condensed table-striped nd_floatinghead">
   <thead>
     <tr>

Netdisco/share/views/ajax/device/addresses_csv.tt

@@ -0,0 +1,11 @@
+[% USE CSV -%]
+[% CSV.dump([ 'Address' 'DNS' 'Interface' 'Description' 'Prefix' ]) %]
+
+[% WHILE (row = results.next) %]
+  [% mylist = [] %]
+  [% FOREACH col IN [ row.alias row.dns row.port row.device_port.name row.subnet ] %]
+    [% mylist.push(col) %]
+  [% END %]
+  [% CSV.dump(mylist) %]
+
+[% END %]