#733 strip nonprinting characters from OUI table

This commit is contained in:
Oliver Gorwits
2020-07-08 22:23:34 +01:00
parent a95588d500
commit 87db37180b
2 changed files with 2 additions and 0 deletions

View File

@@ -238,6 +238,7 @@ sub deploy_oui {
if ($line =~ m/^\s*(.{2}-.{2}-.{2})\s+\(hex\)\s+(.*)\s*$/i) {
my ($oui, $company) = ($1, $2);
$oui =~ s/-/:/g;
$company =~ s/[\r\n]//g;
my $abbrev = shorten($company);
$data{lc($oui)}{'company'} = $company;
$data{lc($oui)}{'abbrev'} = $abbrev;