[pve-devel] [PATCH qemu-server v3 22/51] blockdev: introduce top_node_name() and parse_top_node_name() helpers

[Fiona Ebner]

Signed-off-by: Fiona Ebner <f.ebner at proxmox.com>
---
 src/PVE/QemuServer/Blockdev.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/PVE/QemuServer/Blockdev.pm b/src/PVE/QemuServer/Blockdev.pm
index 3caae362..0f30f328 100644
--- a/src/PVE/QemuServer/Blockdev.pm
+++ b/src/PVE/QemuServer/Blockdev.pm
@@ -33,6 +33,23 @@ my sub get_node_name {
     return "${prefix}${hash}";
 }
 
+sub parse_top_node_name {
+    my ($node_name) = @_;
+
+    if ($node_name =~ m/^drive-(.+)$/) {
+        my $drive_id = $1;
+        return $drive_id if PVE::QemuServer::Drive::is_valid_drivename($drive_id);
+    }
+
+    return;
+}
+
+sub top_node_name {
+    my ($drive_id) = @_;
+
+    return "drive-$drive_id";
+}
+
 my sub read_only_json_option {
     my ($drive, $options) = @_;
 
@@ -221,7 +238,7 @@ sub generate_drive_blockdev {
     # this is the top filter entry point, use $drive-drive_id as nodename
     return {
         driver => "throttle",
-        'node-name' => "drive-$drive_id",
+        'node-name' => top_node_name($drive_id),
         'throttle-group' => throttle_group_id($drive_id),
         file => $child,
     };
-- 
2.47.2