[PATCH pve-network v5 8/9] api: vnets: include the zone type in the vnet list

[Hannes Laimer <h.laimer@proxmox.com>]

Only vnets in EVPN zones can set the IPv6 Router Advertisement
options, and only their IPv6 subnets can set the prefix flags and
lifetimes. With the zone type on every entry, the list alone shows
which vnets and subnets take these options.

Signed-off-by: Hannes Laimer <h.laimer@proxmox.com>
---

Notes:
    v5:
     - the zone type follows a pending zone change

 src/PVE/API2/Network/SDN/Vnets.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/PVE/API2/Network/SDN/Vnets.pm b/src/PVE/API2/Network/SDN/Vnets.pm
index 0bd027ec1c0d..756826b54068 100644
--- a/src/PVE/API2/Network/SDN/Vnets.pm
+++ b/src/PVE/API2/Network/SDN/Vnets.pm
@@ -160,6 +160,12 @@ __PACKAGE__->register_method({
                     optional => 0,
                     description => 'Name of the VNet.',
                 },
+                'zone-type' => {
+                    type => 'string',
+                    description => 'Type of the zone this VNet belongs to.',
+                    enum => PVE::Network::SDN::Zones::Plugin->lookup_types(),
+                    optional => 1,
+                },
                 pending => {
                     type => 'object',
                     description =>
@@ -179,15 +185,20 @@ __PACKAGE__->register_method({
         my $authuser = $rpcenv->get_user();
 
         my $cfg = {};
+        my $zone_cfg = {};
         if ($param->{pending}) {
             my $running_cfg = PVE::Network::SDN::running_config();
             my $config = PVE::Network::SDN::Vnets::config();
+            my $zone_config = PVE::Network::SDN::Zones::config();
             $cfg = PVE::Network::SDN::pending_config($running_cfg, $config, 'vnets');
+            $zone_cfg = PVE::Network::SDN::pending_config($running_cfg, $zone_config, 'zones');
         } elsif ($param->{running}) {
             my $running_cfg = PVE::Network::SDN::running_config();
             $cfg = $running_cfg->{vnets};
+            $zone_cfg = $running_cfg->{zones};
         } else {
             $cfg = PVE::Network::SDN::Vnets::config();
+            $zone_cfg = PVE::Network::SDN::Zones::config();
         }
 
         my @sids = PVE::Network::SDN::Vnets::sdn_vnets_ids($cfg);
@@ -197,6 +208,9 @@ __PACKAGE__->register_method({
             my $scfg = &$api_sdn_vnets_config($cfg, $id);
             my $zoneid = $scfg->{zone} // $scfg->{pending}->{zone};
             next if !$rpcenv->check_any($authuser, "/sdn/zones/$zoneid/$id", $privs, 1);
+            my $type_zoneid = $scfg->{pending}->{zone} // $zoneid;
+            $scfg->{'zone-type'} = $zone_cfg->{ids}->{$type_zoneid}->{type}
+                if $zone_cfg->{ids}->{$type_zoneid};
 
             push @$res, $scfg;
         }
-- 
2.47.3