my $vnet = extract_param($param, 'vnet');
my $mac = extract_param($param, 'mac');
- PVE::Network::SDN::Dhcp::remove_mapping($vnet, $mac);
-
eval {
PVE::Network::SDN::Vnets::del_ips_from_mac($vnet, $mac);
};
my $error = $@;
- PVE::Network::SDN::Vnets::add_dhcp_mapping($vnet, $mac) if $error;
die "$error\n" if $error;
return undef;
my $ip = extract_param($param, 'ip');
PVE::Network::SDN::Vnets::add_ip($vnet, $ip, '', $mac, undef);
- PVE::Network::SDN::Vnets::add_dhcp_mapping($vnet, $mac);
return undef;
},
my $vmid = extract_param($param, 'vmid');
my $ip = extract_param($param, 'ip');
- PVE::Network::SDN::Dhcp::remove_mapping($vnet, $mac);
my ($old_ip4, $old_ip6) = PVE::Network::SDN::Vnets::del_ips_from_mac($vnet, $mac, '');
eval {
PVE::Network::SDN::Vnets::add_ip($vnet, $old_ip6, '', $mac, $vmid) if $old_ip6;
}
- PVE::Network::SDN::Vnets::add_dhcp_mapping($vnet, $mac);
-
die "$error\n" if $error;
return undef;
},