87 lines
2.5 KiB
Perl
87 lines
2.5 KiB
Perl
package App::Netdisco::Web::Plugin::API::NodeIP;
|
|
|
|
use Dancer ':syntax';
|
|
use Dancer::Plugin::DBIC 'schema';
|
|
use Dancer::Plugin::Auth::Extensible;
|
|
use Dancer::Plugin::Swagger;
|
|
|
|
use App::Netdisco::Web::Plugin;
|
|
use App::Netdisco::Util::API ':all';
|
|
|
|
use NetAddr::IP::Lite;
|
|
|
|
swagger_path {
|
|
description => 'Search for a Node to IP mapping (v4 ARP or v6 Neighbor entry)',
|
|
tags => ['NodeIPs'],
|
|
parameters => [
|
|
resultsource_to_openapi_params('NodeIp'),
|
|
partial => {
|
|
type => 'boolean',
|
|
description => 'Parameters can match anywhere in the value, ignoring case',
|
|
},
|
|
],
|
|
responses => {
|
|
default => { description => 'A row from the node_ip table' },
|
|
},
|
|
},
|
|
get '/api/nodeip/search' => require_role api => sub {
|
|
my $para = params;
|
|
my $search = parse_search_params($para);
|
|
my $ips;
|
|
try {
|
|
$ips = schema('netdisco')->resultset('NodeIp')->search($search);
|
|
};
|
|
return format_data($ips);
|
|
};
|
|
|
|
# FIXME does not work as you can have more than one IP entry in that table
|
|
# will issue a warning from DBIC
|
|
get '/api/nodeip/:node' => sub {
|
|
my $node = params->{node};
|
|
if (defined NetAddr::IP::Lite->new($node)){
|
|
try {
|
|
my $node = schema('netdisco')->resultset('NodeIp')->find({ ip => $node});
|
|
return format_error(404, "IP address not found.")
|
|
if not defined $node->{_column_data};
|
|
return format_data($node);
|
|
};
|
|
}
|
|
else {
|
|
format_error(400,"Not an IP address.");
|
|
}
|
|
};
|
|
|
|
# FIXME does not work as you can have more than one IP entry in that table
|
|
# will issue a warning from DBIC
|
|
get '/api/nodeip/:node/:method' => sub {
|
|
my $node = params->{node};
|
|
my $method = params->{method};
|
|
|
|
if (! ($method =~ m/[-_a-z]/)) {
|
|
return format_error(400,"Invalid collection $method.");
|
|
}
|
|
|
|
if (defined NetAddr::IP::Lite->new($node)){
|
|
try {
|
|
my $node = schema('netdisco')->resultset('NodeIp')->find({ ip => $node});
|
|
|
|
return format_error(404, "IP address not found.")
|
|
if not defined $node->{_column_data};
|
|
|
|
my $data = $node->$method;
|
|
|
|
return format_data($data);
|
|
} catch {
|
|
my ($exception) = @_;
|
|
if ($exception =~ m/Can\'t call method "$method" on an undefined value/) {
|
|
return format_error(404, "IP address not found.")
|
|
}
|
|
format_error(400,"Invalid collection $method.");
|
|
};
|
|
}
|
|
else {
|
|
format_error(400,"Not an IP address.");
|
|
}
|
|
|
|
};
|