subnets: add add_subnet/del_subnet

[pve-network.git] / PVE / API2 / Network / SDN / Subnets.pm

diff --git a/PVE/API2/Network/SDN/Subnets.pm b/PVE/API2/Network/SDN/Subnets.pm
index 07ef2e11dc0684142674d4f5c40f8faaf1a2e72f..f7e095fd7ce14178ec4b10fe23ef2b430600ddd5 100644 (file)
--- a/PVE/API2/Network/SDN/Subnets.pm
+++ b/PVE/API2/Network/SDN/Subnets.pm
@@ -277,21 +277,18 @@ __PACKAGE__->register_method ({
            sub {
                my $cfg = PVE::Network::SDN::Subnets::config();
 
-               my $scfg = PVE::Network::SDN::Subnets::sdn_subnets_config($cfg, $id);
+               my $scfg = PVE::Network::SDN::Subnets::sdn_subnets_config($cfg, $id, 1);
 
-               my $subnets_cfg = PVE::Network::SDN::Subnets::config();
                my $vnets_cfg = PVE::Network::SDN::Vnets::config();
 
-               PVE::Network::SDN::SubnetPlugin->on_delete_hook($id, $subnets_cfg, $vnets_cfg);
+               PVE::Network::SDN::SubnetPlugin->on_delete_hook($id, $cfg, $vnets_cfg);
 
-               my $ipam_cfg = PVE::Network::SDN::Ipams::config();
-               my $ipam = $cfg->{ids}->{$id}->{ipam};
-               if ($ipam) {
-                   raise_param_exc({ ipam => "$ipam not existing"}) if !$ipam_cfg->{ids}->{$ipam};
-                   my $plugin_config = $ipam_cfg->{ids}->{$ipam};
-                   my $plugin = PVE::Network::SDN::Ipams::Plugin->lookup($plugin_config->{type});
-                   $plugin->del_subnet($plugin_config, $id, $scfg);
-               }
+               my $zone_cfg = PVE::Network::SDN::Zones::config();
+               my $vnet = $param->{vnet};
+               my $zoneid = $vnets_cfg->{ids}->{$vnet}->{zone};
+               my $zone = $zone_cfg->{ids}->{$zoneid};
+
+               PVE::Network::SDN::Subnets::del_subnet($zone, $id, $scfg);
 
                delete $cfg->{ids}->{$id};