view release on metacpan or  search on metacpan

bin/ieee-oui-import  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

our $home;

BEGIN {
  use FindBin;
  FindBin::again();

  $home = ($ENV{NETDISCO_HOME} || $ENV{HOME});

  # try to find a localenv if one isn't already in place.
  if (!exists $ENV{PERL_LOCAL_LIB_ROOT}) {
      use File::Spec;
      my $localenv = File::Spec->catfile($FindBin::RealBin, 'localenv');
      exec($localenv, $0, @ARGV) if -f $localenv;
      $localenv = File::Spec->catfile($home, 'perl5', 'bin', 'localenv');
      exec($localenv, $0, @ARGV) if -f $localenv;

      die "Sorry, can't find libs required for App::Netdisco.\n"
        if !exists $ENV{PERLBREW_PERL};
  }
}

BEGIN {
  use Path::Class;

  # stuff useful locations into @INC and $PATH
  unshift @INC,
    dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
    dir($FindBin::RealBin, 'lib')->stringify;

  use Config;
  $ENV{PATH} = $FindBin::RealBin . $Config{path_sep} . $ENV{PATH};
}

use App::Netdisco;
use Dancer ':script';
use Dancer::Plugin::DBIC 'schema';

use HTTP::Tiny;
use Text::CSV 'csv';
use Math::BigInt;

binmode STDOUT, ":utf8";

my %urls = (
  MAL => 'https://raw.githubusercontent.com/netdisco/upstream-sources/master/ieee/MA/MA-L.csv',
  MAM => 'https://raw.githubusercontent.com/netdisco/upstream-sources/master/ieee/MA/MA-M.csv',
  MAS => 'https://raw.githubusercontent.com/netdisco/upstream-sources/master/ieee/MA/MA-S.csv',
);

my %oui = ();

# conflicts of registered ranges with locally administered addresses, we'll skip these

# |company                            |abbrev                |base  |
# |-----------------------------------|----------------------|------|
# |RACAL-DATACOM                      |Racal-Datacom         |020701|
# |PERQ SYSTEMS CORPORATION           |Perq                  |021c7c|
# |LOGIC REPLACEMENT TECH. LTD.       |LogicReplacement      |026086|
# |3COM                               |3com                  |02608c|
# |RACAL-DATACOM                      |Racal-Datacom         |027001|
# |M/A-COM INC. COMPANIES             |M/A-ComCompanies      |0270b0|
# |DATA RECALL LTD.                   |DataRecall            |0270b3|
# |CARDIAC RECORDERS, INC.            |CardiacRecorders      |029d8e|
# |OLIVETTI TELECOMM SPA (OLTECO)     |OlivettiTelecomm      |02aa3c|
# |OCTOTHORPE CORP.                   |Octothorpe            |02bb01|
# |3COM                               |3com                  |02c08c|
# |Communication Machinery Corporation|CommunicationMachinery|02cf1c|
# |NIXDORF COMPUTER CORP.             |NixdorfComputer       |02e6d3|
# |DIGITAL EQUIPMENT CORPORATION      |DigitalEquipment      |aa0000|
# |DIGITAL EQUIPMENT CORPORATION      |DigitalEquipment      |aa0001|
# |DIGITAL EQUIPMENT CORPORATION      |DigitalEquipment      |aa0002|
# |DIGITAL EQUIPMENT CORPORATION      |DigitalEquipment      |aa0003|
# |DIGITAL EQUIPMENT CORPORATION      |DigitalEquipment      |aa0004|

my @conflict_bases = qw/