88 lines
2.6 KiB
Perl
88 lines
2.6 KiB
Perl
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 };
|
||
};
|
||
|
||
# TODO
|
||
ajax '/ajax/data/device/netmappositions' => require_login sub {
|
||
my $x = from_json param('positions');
|
||
use DDP; p $x;
|
||
};
|
||
|
||
ajax '/ajax/data/device/netmap' => require_login sub {
|
||
my $q = param('q');
|
||
my $qdev = schema('netdisco')->resultset('Device')
|
||
->search_for_device($q) or send_error('Bad device', 400);
|
||
|
||
my $vlan = param('vlan');
|
||
undef $vlan if (defined $vlan and $vlan !~ m/^\d+$/);
|
||
|
||
my @devices = schema('netdisco')->resultset('Device')->search({}, {
|
||
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
|
||
columns => ['ip', 'dns', 'name'],
|
||
'+select' => [\'row_number() over()'], '+as' => ['row_number'],
|
||
})->all;
|
||
|
||
my %id_for = ();
|
||
my %v3data = ( nodes => {}, links => [] );
|
||
my %v4data = ( nodes => [], links => [] );
|
||
my $domain = quotemeta( setting('domain_suffix') || '' );
|
||
|
||
foreach my $device (@devices) {
|
||
$id_for{$device->{ip}} = $device->{'row_number'};
|
||
(my $name = ($device->{dns} || lc($device->{name}) || $device->{ip})) =~ s/$domain$//;
|
||
|
||
$v3data{nodes}->{ ($device->{row_number} - 1) } = {
|
||
ID => $device->{row_number},
|
||
SIZEVALUE => 3000,
|
||
COLORVALUE => 10,
|
||
LABEL => $name,
|
||
};
|
||
push @{$v4data{'nodes'}}, { index => ($device->{row_number} - 1) };
|
||
|
||
$v3data{'centernode'} = $device->{row_number}
|
||
if $qdev and $qdev->in_storage and $device->{ip} eq $qdev->ip;
|
||
}
|
||
|
||
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) {
|
||
push @{$v3data{'links'}}, {
|
||
FROMID => $id_for{$l->{left_ip}},
|
||
TOID => $id_for{$l->{right_ip}},
|
||
};
|
||
push @{$v4data{'links'}}, {
|
||
source => ($id_for{$l->{left_ip}} - 1),
|
||
target => ($id_for{$l->{right_ip}} - 1),
|
||
};
|
||
}
|
||
|
||
content_type('application/json');
|
||
to_json({ v3 => \%v3data, v4 => \%v4data});
|
||
};
|
||
|
||
true;
|