135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

work for shortening or lengthening ports

Browse Source
This commit is contained in:
Oliver Gorwits
2018-04-09 23:05:17 +01:00
parent 8bcfaf12d0
commit 9d48c4a025
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/App/Netdisco/Worker/Plugin/Discover/Neighbors.pm
View File

@@ -259,7 +259,8 @@ sub store_neighbors {
ip => $peer_device->ip,
port => [
{'=', $remote_port},
{'-ilike', normalize_port($remote_port)},
{'-ilike', long_port($remote_port)},
{'-ilike', short_port($remote_port)},
{'-ilike', ('%'.quotemeta($remote_port))},
],
}, { rows => 1 })->single();
@@ -308,7 +309,13 @@ sub store_neighbors {
return @to_discover;
}
sub normalize_port {
sub long_port {
my $port = shift or return '';
$port =~ s/^([a-z]{2})([^a-z].+)$/$1%$2/i;
return $port;
}
sub short_port {
my $port = shift or return '';
my ($start, $end) = ('', '');
if ($port =~ m/^([a-z]{2})/i) { $start = $1 }