filter_mac_add_hostname

#!/usr/bin/perl
use warnings;
use strict;
use autodie;

use Data::Dump qw(dump);

$|=1; # flush stdout

my $debug = $ENV{DEBUG} || 0;

use lib 'lib';
use name2mac;
my $mac2name = $name2mac::mac2name;

sub mac2name {
	my ( $mac, $name ) = @_;

	$mac = lc($mac);
	if ( exists $mac2name->{$mac} ) {
		my $mac_name = $mac2name->{$mac};
		warn "ERROR: name different $name != $mac_name" if $name && $name ne $mac_name;
		#return ( $mac, $mac_name );
		return $mac . ' ' . $mac_name;
	}
	#return ( $mac, $name );
	return $mac;
}

warn "# mac2name = ",dump($mac2name) if $debug;

sub fix_mac {
	my $mac = shift;
	$mac = lc($mac);
	$mac =~ s/^([0-9a-f]):/0$1:/;
	while ( $mac =~ s/:([0-9a-f]):/:0$1:/g ) {};
	$mac =~ s/:([0-9a-f])$/:0$1/;
#	warn "# $mac\n";
	return $mac;
}

# 744D.283D.3733
sub mac4 {
	my $mac = shift;
warn "XXX mac4 ",dump($mac);
	$mac =~ s{([0-9A-F]{2})([0-9A-F]{2})}{$1:$2}g;
	$mac =~ s{\.}{:}g;
	return lc($mac);
}

while(<>) {
	# 744D.283D.3733
	s/([0-9A-F]{4}\.[0-9A-F]{4}\.[0-9A-F]{4})/mac4($1)/ge;
	s/((:?[0-9A-Fa-f]{2}[:-]){5}(:?[0-9A-Fa-f]{2}))/mac2name($1)/ge;
	print;
}