[PATCH proxmox-perl-rs 1/3] pve-rs: sdn: add route maps module

[Stefan Hanreich <s.hanreich@proxmox.com>]

Exposes the functionality from ve-config to Perl by providing helpers
for instantiating the Rust configuration from Perl. The module also
contains the implementation for the CRUD API methods, which will be
used in the API methods in pve-network.

Signed-off-by: Stefan Hanreich <s.hanreich@proxmox.com>
---
 pve-rs/Cargo.toml                     |   1 +
 pve-rs/Makefile                       |   1 +
 pve-rs/src/bindings/sdn/mod.rs        |   3 +-
 pve-rs/src/bindings/sdn/route_maps.rs | 243 ++++++++++++++++++++++++++
 4 files changed, 247 insertions(+), 1 deletion(-)
 create mode 100644 pve-rs/src/bindings/sdn/route_maps.rs

diff --git a/pve-rs/Cargo.toml b/pve-rs/Cargo.toml
index 45389b5..42d19fe 100644
--- a/pve-rs/Cargo.toml
+++ b/pve-rs/Cargo.toml
@@ -42,6 +42,7 @@ proxmox-notify = { version = "1", features = ["pve-context"] }
 proxmox-oci = "0.2.1"
 proxmox-openid = "1.0.2"
 proxmox-resource-scheduling = "1.0.1"
+proxmox-schema = "5"
 proxmox-section-config = "3"
 proxmox-shared-cache = "1"
 proxmox-subscription = "1"
diff --git a/pve-rs/Makefile b/pve-rs/Makefile
index 3bbc464..d662b00 100644
--- a/pve-rs/Makefile
+++ b/pve-rs/Makefile
@@ -31,6 +31,7 @@ PERLMOD_PACKAGES := \
 	  PVE::RS::OpenId \
 	  PVE::RS::ResourceScheduling::Static \
 	  PVE::RS::SDN::Fabrics \
+	  PVE::RS::SDN::RouteMaps \
 	  PVE::RS::SDN \
 	  PVE::RS::TFA
 
diff --git a/pve-rs/src/bindings/sdn/mod.rs b/pve-rs/src/bindings/sdn/mod.rs
index fde3138..c571d28 100644
--- a/pve-rs/src/bindings/sdn/mod.rs
+++ b/pve-rs/src/bindings/sdn/mod.rs
@@ -1,4 +1,5 @@
 pub(crate) mod fabrics;
+pub(crate) mod route_maps;
 
 #[perlmod::package(name = "PVE::RS::SDN", lib = "pve_rs")]
 pub mod pve_rs_sdn {
@@ -7,7 +8,7 @@ pub mod pve_rs_sdn {
     //! This provides general methods for generating the frr config.
 
     use anyhow::Error;
-    use proxmox_frr::ser::{FrrConfig, serializer::to_raw_config};
+    use proxmox_frr::ser::{serializer::to_raw_config, FrrConfig};
 
     use proxmox_ve_config::common::valid::Validatable;
     use proxmox_ve_config::sdn::fabric::section_config::node::NodeId;
diff --git a/pve-rs/src/bindings/sdn/route_maps.rs b/pve-rs/src/bindings/sdn/route_maps.rs
new file mode 100644
index 0000000..b80126a
--- /dev/null
+++ b/pve-rs/src/bindings/sdn/route_maps.rs
@@ -0,0 +1,243 @@
+#[perlmod::package(name = "PVE::RS::SDN::RouteMaps", lib = "pve_rs")]
+pub mod pve_rs_sdn_route_maps {
+    //! The `PVE::RS::SDN::RouteMaps` package.
+
+    use std::collections::HashMap;
+    use std::ops::Deref;
+    use std::sync::Mutex;
+
+    use anyhow::{anyhow, Error};
+    use openssl::hash::{hash, MessageDigest};
+    use serde::{Deserialize, Serialize};
+
+    use perlmod::Value;
+
+    use proxmox_schema::Updater;
+    use proxmox_section_config::typed::{ApiSectionDataEntry, SectionConfigData};
+    use proxmox_ve_config::sdn::route_map::api::RouteMapDeletableProperties;
+    use proxmox_ve_config::sdn::route_map::api::RouteMapEntry as ApiRouteMap;
+    use proxmox_ve_config::sdn::route_map::api::RouteMapEntryUpdater;
+    use proxmox_ve_config::sdn::route_map::RouteMap as ConfigRouteMap;
+    use proxmox_ve_config::sdn::route_map::RouteMapEntryId;
+    use proxmox_ve_config::sdn::route_map::RouteMapId;
+
+    /// A SDN RouteMap config instance.
+    #[derive(Serialize, Deserialize)]
+    pub struct PerlRouteMapConfig {
+        /// The route map config instance
+        pub route_maps: Mutex<HashMap<String, ConfigRouteMap>>,
+    }
+
+    perlmod::declare_magic!(Box<PerlRouteMapConfig> : &PerlRouteMapConfig as "PVE::RS::SDN::RouteMaps::Config");
+
+    /// Class method: Parse the raw configuration from `/etc/pve/sdn/route-maps.cfg`.
+    #[export]
+    pub fn config(#[raw] class: Value, raw_config: &[u8]) -> Result<perlmod::Value, Error> {
+        let raw_config = std::str::from_utf8(raw_config)?;
+        let config = ConfigRouteMap::parse_section_config("route-maps.cfg", raw_config)?;
+
+        Ok(
+            perlmod::instantiate_magic!(&class, MAGIC => Box::new(PerlRouteMapConfig {
+                route_maps: Mutex::new(config.deref().clone()),
+            })),
+        )
+    }
+
+    /// Class method: Parse the configuration from `/etc/pve/sdn/.running_config`.
+    #[export]
+    pub fn running_config(
+        #[raw] class: Value,
+        route_maps: HashMap<String, ConfigRouteMap>,
+    ) -> Result<perlmod::Value, Error> {
+        Ok(
+            perlmod::instantiate_magic!(&class, MAGIC => Box::new(PerlRouteMapConfig {
+                route_maps: Mutex::new(route_maps.clone()),
+            })),
+        )
+    }
+
+    /// Used for writing the running configuration.
+    #[export]
+    pub fn to_sections(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+    ) -> Result<HashMap<String, ConfigRouteMap>, Error> {
+        let config = this.route_maps.lock().unwrap();
+        Ok(config.deref().clone())
+    }
+
+    /// Method: Convert the configuration into the section config string.
+    ///
+    /// Used for writing `/etc/pve/sdn/route-maps.cfg`
+    #[export]
+    pub fn to_raw(#[try_from_ref] this: &PerlRouteMapConfig) -> Result<String, Error> {
+        let config = this.route_maps.lock().unwrap();
+        let route_maps: SectionConfigData<ConfigRouteMap> =
+            SectionConfigData::from_iter(config.deref().clone());
+
+        ConfigRouteMap::write_section_config("route-maps.cfg", &route_maps)
+    }
+
+    /// Method: Generate a digest for the whole configuration.
+    #[export]
+    pub fn digest(#[try_from_ref] this: &PerlRouteMapConfig) -> Result<String, Error> {
+        let config = to_raw(this)?;
+        let hash = hash(MessageDigest::sha256(), config.as_bytes())?;
+
+        Ok(hex::encode(hash))
+    }
+
+    /// Returns a list of all RouteMap entries.
+    #[export]
+    pub fn list(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+    ) -> Result<HashMap<String, ApiRouteMap>, Error> {
+        Ok(this
+            .route_maps
+            .lock()
+            .unwrap()
+            .iter()
+            .map(|(id, route_map_entry)| {
+                let ConfigRouteMap::RouteMapEntry(route_map) = route_map_entry;
+                (id.clone(), route_map.clone().into())
+            })
+            .collect())
+    }
+
+    /// Returns a list of all RouteMap entries for a given RouteMap ID.
+    #[export]
+    pub fn list_route_map(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+        route_map_id: RouteMapId,
+    ) -> Result<HashMap<String, ApiRouteMap>, Error> {
+        Ok(this
+            .route_maps
+            .lock()
+            .unwrap()
+            .iter()
+            .filter_map(|(id, route_map_entry)| {
+                let ConfigRouteMap::RouteMapEntry(route_map) = route_map_entry;
+
+                if route_map.id().route_map_id() == &route_map_id {
+                    return Some((id.clone(), route_map.clone().into()));
+                }
+
+                None
+            })
+            .collect())
+    }
+
+    /// Create a new RouteMap entry.
+    #[export]
+    pub fn create(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+        route_map: ApiRouteMap,
+    ) -> Result<(), Error> {
+        let mut route_maps = this.route_maps.lock().unwrap();
+
+        let id =
+            RouteMapEntryId::new(route_map.route_map_id().clone(), route_map.order()).to_string();
+        let config_route_map = ConfigRouteMap::RouteMapEntry(route_map.into());
+
+        if route_maps.get(&id).is_some() {
+            anyhow::bail!("route map entry already exists in configuration: {}", id);
+        }
+
+        route_maps.insert(id, config_route_map);
+
+        Ok(())
+    }
+
+    /// Returns a specfic entry of a RouteMap.
+    #[export]
+    pub fn get(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+        route_map_id: RouteMapId,
+        order: u32,
+    ) -> Result<Option<ApiRouteMap>, Error> {
+        let id = RouteMapEntryId::new(route_map_id, order);
+
+        Ok(this
+            .route_maps
+            .lock()
+            .unwrap()
+            .iter()
+            .find(|(_id, route_map_entry)| {
+                let ConfigRouteMap::RouteMapEntry(route_map) = route_map_entry;
+                route_map.id() == &id
+            })
+            .map(|(_id, route_map_entry)| {
+                let ConfigRouteMap::RouteMapEntry(route_map) = route_map_entry;
+                route_map.clone().into()
+            }))
+    }
+
+    /// Update a RouteMap entry.
+    #[export]
+    pub fn update(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+        route_map_id: RouteMapId,
+        order: u32,
+        updater: RouteMapEntryUpdater,
+        delete: Option<Vec<RouteMapDeletableProperties>>,
+    ) -> Result<(), Error> {
+        if updater.is_empty() && delete.is_empty() {
+            return Ok(());
+        }
+
+        let mut route_maps = this.route_maps.lock().unwrap();
+        let id = RouteMapEntryId::new(route_map_id, order).to_string();
+
+        let ConfigRouteMap::RouteMapEntry(route_map) = route_maps
+            .get_mut(&id)
+            .ok_or_else(|| anyhow!("Could not find route map with id: {}", id))?;
+
+        let RouteMapEntryUpdater {
+            action,
+            set_actions,
+            match_actions,
+        } = updater;
+
+        if let Some(action) = action {
+            route_map.set_action(action);
+        }
+
+        if let Some(match_actions) = match_actions {
+            route_map.set_match_actions(match_actions);
+        }
+
+        if let Some(set_actions) = set_actions {
+            route_map.set_set_actions(set_actions);
+        }
+
+        for deletable_property in delete.unwrap_or_default() {
+            match deletable_property {
+                RouteMapDeletableProperties::SetActions => {
+                    route_map.set_set_actions(Vec::new());
+                }
+                RouteMapDeletableProperties::MatchActions => {
+                    route_map.set_match_actions(Vec::new());
+                }
+            }
+        }
+
+        Ok(())
+    }
+
+    /// Delete an entry in a RouteMap.
+    #[export]
+    pub fn delete(
+        #[try_from_ref] this: &PerlRouteMapConfig,
+        route_map_id: RouteMapId,
+        order: u32,
+    ) -> Result<(), Error> {
+        let id = RouteMapEntryId::new(route_map_id, order).to_string();
+
+        this.route_maps
+            .lock()
+            .unwrap()
+            .remove(&id.to_string())
+            .ok_or_else(|| anyhow!("could not find route map entry with id: {id}"))?;
+
+        Ok(())
+    }
+}
-- 
2.47.3