return iso path

[pxelator] / lib / PXElator / format.pm

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;