29 lines
704 B
Perl
29 lines
704 B
Perl
package App::Netdisco::Web::Plugin::Device::Addresses;
|
|
|
|
use Dancer ':syntax';
|
|
use Dancer::Plugin::Ajax;
|
|
use Dancer::Plugin::DBIC;
|
|
|
|
use NetAddr::IP::Lite ':lower';
|
|
|
|
use App::Netdisco::Web::Plugin;
|
|
|
|
register_device_tab({ id => 'addresses', label => 'Addresses' });
|
|
|
|
# device interface addresses
|
|
ajax '/ajax/content/device/addresses' => sub {
|
|
my $ip = NetAddr::IP::Lite->new(param('q'));
|
|
return unless $ip;
|
|
|
|
my $set = schema('netdisco')->resultset('DeviceIp')
|
|
->search({ip => $ip->addr}, {order_by => 'alias'});
|
|
return unless $set->count;
|
|
|
|
content_type('text/html');
|
|
template 'ajax/device/addresses.tt', {
|
|
results => $set,
|
|
}, { layout => undef };
|
|
};
|
|
|
|
true;
|