[pve-devel] [PATCH pve-network v2 7/8] partial fix #5496: ipam: netbox: create / delete ip ranges for dhcp

[Stefan Hanreich]

We use the IP ranges of netbox to represent the dhcp ranges. We were
already querying the IP ranges for a IP when starting a guest, but we
never created the IP ranges in the first place. Additionally implement
deleting the IP ranges when the subnet gets deleted.

These methods try to check for any possible errors before editing the
entities. There is still a small window where external changes can
occur that lead to errors. We are touching multiple entities here, so
in case of errors users have to fix their Netbox instance manually.

Signed-off-by: Stefan Hanreich <s.hanreich at proxmox.com>
---
 src/PVE/Network/SDN/Ipams/NetboxPlugin.pm | 45 +++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/src/PVE/Network/SDN/Ipams/NetboxPlugin.pm b/src/PVE/Network/SDN/Ipams/NetboxPlugin.pm
index 2fa975f..af9be25 100644
--- a/src/PVE/Network/SDN/Ipams/NetboxPlugin.pm
+++ b/src/PVE/Network/SDN/Ipams/NetboxPlugin.pm
@@ -40,6 +40,33 @@ sub netbox_api_request {
     );
 }
 
+sub add_dhcp_range {
+    my ($config, $dhcp_range, $noerr) = @_;
+
+    my $result = eval {
+	netbox_api_request($config, "POST", "/ipam/ip-ranges/", {
+	    start_address => $dhcp_range->{'start-address'},
+	    end_address => $dhcp_range->{'end-address'},
+	});
+    };
+    if ($@) {
+	return if $noerr;
+	die "could not create ip range $dhcp_range->{'start-address'}:$dhcp_range->{'end-address'}: $@";
+    }
+
+    return $result->{id};
+}
+
+sub del_dhcp_range {
+    my ($config, $id, $noerr) = @_;
+
+    eval {
+	netbox_api_request($config, "DELETE", "/ipam/ip-ranges/$id/");
+    };
+
+    die "could not create dhcp range: $@" if $@ && !$noerr;
+}
+
 # Plugin implementation
 
 sub add_subnet {
@@ -62,6 +89,11 @@ sub add_subnet {
 	return if $noerr;
 	die "error adding subnet to ipam: $@";
     }
+
+    my $dhcp_ranges = PVE::Network::SDN::Subnets::get_dhcp_ranges($subnet);
+    for my $dhcp_range (@$dhcp_ranges) {
+	add_dhcp_range($plugin_config, $dhcp_range, $noerr);
+    }
 }
 
 sub del_subnet {
@@ -88,6 +120,19 @@ sub del_subnet {
 	die "could not delete gateway ip from subnet $subnetid";
     }
 
+    my $dhcp_ranges = PVE::Network::SDN::Subnets::get_dhcp_ranges($subnet);
+    for my $dhcp_range (@$dhcp_ranges) {
+	my $internalid = get_iprange_id($plugin_config, $dhcp_range, $noerr);
+
+	# definedness check, because ID could be 0
+	if (!defined($internalid)) {
+	    warn "could not find id for ip range $dhcp_range->{'start-address'}:$dhcp_range->{'end-address'}";
+	    next;
+	}
+
+	del_dhcp_range($plugin_config, $internalid, $noerr);
+    }
+
     eval {
 	netbox_api_request($plugin_config, "DELETE", "/ipam/prefixes/$internalid/");
     };
-- 
2.39.5