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