further fixes for #335 to key netmap fully off IP
This commit is contained in:
		| @@ -34,9 +34,8 @@ sub _add_children { | ||||
|         var('seen')->{$c}++; | ||||
|         push @legit, $c; | ||||
|         push @{$ptr}, { | ||||
|           name => _get_name($c), | ||||
|           fullname => (var('devices')->{$c} || $c), | ||||
|           ip => $c, | ||||
|           name => _get_name($c), | ||||
|         }; | ||||
|     } | ||||
|  | ||||
| @@ -93,8 +92,7 @@ get '/ajax/data/device/netmap' => require_login sub { | ||||
|  | ||||
|     my %tree = ( | ||||
|         ip => $start, | ||||
|         name => _get_name($start), | ||||
|         fullname => (var('devices')->{$start} || $start), | ||||
|         name => _get_name($start), # dns or sysname or ip | ||||
|         children => [], | ||||
|     ); | ||||
|  | ||||
| @@ -107,20 +105,13 @@ get '/ajax/data/device/netmap' => require_login sub { | ||||
| }; | ||||
|  | ||||
| ajax '/ajax/data/device/alldevicelinks' => require_login sub { | ||||
|     my @devices = schema('netdisco')->resultset('Device')->search({}, { | ||||
|       result_class => 'DBIx::Class::ResultClass::HashRefInflator', | ||||
|       columns => ['ip', 'dns'], | ||||
|     })->all; | ||||
|     var(devices => { map { $_->{ip} => $_->{dns} } @devices }); | ||||
|  | ||||
|     my $rs = schema('netdisco')->resultset('Virtual::DeviceLinks')->search({}, { | ||||
|       result_class => 'DBIx::Class::ResultClass::HashRefInflator', | ||||
|     }); | ||||
|  | ||||
|     my %tree = (); | ||||
|     while (my $l = $rs->next) { | ||||
|         push @{ $tree{ _get_name($l->{left_ip} )} }, | ||||
|           _get_name($l->{right_ip}); | ||||
|         push @{ $tree{ $l->{left_ip} } }, $l->{right_ip}; | ||||
|     } | ||||
|  | ||||
|     content_type('application/json'); | ||||
|   | ||||
		Reference in New Issue
	
	Block a user