Changeset 139

Timestamp:

May 12, 2014, 6:54:01 PM (10 years ago)

Author:

g7moreau

Message:

• Add two MAC address model possible use in HP switch

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -343 +343 @@
    my $mac_address = shift;
 
+   # D07E-28D1-7AB8 or d07e28-d17ab8
+   if ($mac_address =~ m{^ (?: [0-9A-Fa-f]{4} -){2} [0-9A-Fa-f]{4} $}xms
+      or $mac_address =~ m{^ [0-9A-Fa-f]{6} - [0-9A-Fa-f]{6} $}xms) {
+      $mac_address =~ s/-//g;
+      return join q{:}, unpack('(A2)*', uc($mac_address));
+      }
+
    return join q{:}, map { substr( uc("00$_"), -2) } split m/ [:-] /xms, $mac_address;
    }