MAC addresses must have a :, - or . in them

This commit is contained in:
Jamie Cameron
2016-10-19 21:27:20 -07:00
parent 99afee45aa
commit 095879911f

View File

@@ -12,11 +12,13 @@ $conf = &get_config();
@hosts = &find_recursive("host", $conf);
# Check to see if the host contains 6 hex bytes for a Mac address
(my $justbytes = $in{'host'}) =~ s/[^A-Fa-f0-9]//g;
if ($justbytes =~ /^[0-9a-f]{12}$/i) {
# Treat this host as a mac address with arbitrary formatting
$in{'host'} = join(':', unpack("(A2)*", $justbytes) );
}
if ($in{'host'} =~ /:|\-|\./) {
(my $justbytes = $in{'host'}) =~ s/[^A-Fa-f0-9]//g;
if ($justbytes =~ /^[0-9a-f]{12}$/i) {
# Treat this host as a mac address with arbitrary formatting
$in{'host'} = join(':', unpack("(A2)*", $justbytes) );
}
}
# Look for a match
%access = &get_module_acl();