sub pve_verify_mac_addr {
my ($mac_addr, $noerr) = @_;
- if ($mac_addr !~ m/^[0-9a-f]{2}(:[0-9a-f]{2}){5}$/i) {
+ if ($mac_addr !~ m/^[a-f0-9][02468ace](?::[a-f0-9]{2}){5}$/i) {
return undef if $noerr;
- die "value does not look like a valid MAC address\n";
+ die "value does not look like a valid unicast MAC address\n";
}
return $mac_addr;
+
}
+register_standard_option('mac-addr', {
+ type => 'string',
+ description => 'Unicast MAC address.',
+ format_description => "XX:XX:XX:XX:XX:XX",
+ optional => 1,
+ format => 'mac-addr',
+});
register_format('ipv4', \&pve_verify_ipv4);
sub pve_verify_ipv4 {