package format;

use warnings;
use strict;

sub mac {
	my ($mac,$op) = @_;
	$op ||= '';
	if ( $mac !~ m{:} ) {
		$mac =~ s{(..)}{$1:}g;
		$mac =~ s{:$}{};
	}
	$mac = qq|<tt>$mac</tt>| if $op =~ m{htm};
	return uc($mac);
}

1;
