[PATCH qemu-server 9/9] fix #7294: helpers: use cluster-wide version helper

[David Riley <d.riley@proxmox.com>]

Drop the local `version_cmp` and `pvecfg_min_version` implementations
and update call sites to use the centralized helpers module in
pve-cluster.

Link: https://bugzilla.proxmox.com/show_bug.cgi?id=7294
Signed-off-by: David Riley <d.riley@proxmox.com>
---
 src/PVE/QemuMigrate.pm        |  2 +-
 src/PVE/QemuServer/Helpers.pm | 40 +----------------------------------
 2 files changed, 2 insertions(+), 40 deletions(-)

diff --git a/src/PVE/QemuMigrate.pm b/src/PVE/QemuMigrate.pm
index d4de9f87..331d263b 100644
--- a/src/PVE/QemuMigrate.pm
+++ b/src/PVE/QemuMigrate.pm
@@ -1394,7 +1394,7 @@ sub phase2 {
         # Check if target is new enough for having the port encoded in the proxy ticket.
         if (
             $target_version
-            && PVE::QemuServer::Helpers::pvecfg_min_version($target_version, 9, 1, 9)
+            && PVE::Cluster::Helpers::pvecfg_min_version($target_version, 9, 1, 9)
         ) {
             $ticket_port = $spice_port;
         }
diff --git a/src/PVE/QemuServer/Helpers.pm b/src/PVE/QemuServer/Helpers.pm
index dd17eef5..b0d72ab4 100644
--- a/src/PVE/QemuServer/Helpers.pm
+++ b/src/PVE/QemuServer/Helpers.pm
@@ -8,6 +8,7 @@ use IO::File;
 use JSON;
 
 use PVE::Cluster;
+use PVE::Cluster::Helpers qw(version_cmp);
 use PVE::INotify;
 use PVE::ProcFSTools;
 use PVE::Tools;
@@ -235,32 +236,6 @@ sub min_version {
     die "internal error: cannot check version of invalid string '$verstr'";
 }
 
-# gets in pairs the versions you want to compares, i.e.:
-# ($a-major, $b-major, $a-minor, $b-minor, $a-extra, $b-extra, ...)
-# returns 0 if same, -1 if $a is older than $b, +1 if $a is newer than $b
-sub version_cmp {
-    my @versions = @_;
-
-    my $size = scalar(@versions);
-
-    return 0 if $size == 0;
-
-    if ($size & 1) {
-        my (undef, $fn, $line) = caller(0);
-        die "cannot compare odd count of versions, called from $fn:$line\n";
-    }
-
-    for (my $i = 0; $i < $size; $i += 2) {
-        my ($left, $right) = splice(@versions, 0, 2);
-        $left //= 0;
-        $right //= 0;
-
-        return 1 if $left > $right;
-        return -1 if $left < $right;
-    }
-    return 0;
-}
-
 sub config_aware_timeout {
     my ($config, $memory, $is_suspended) = @_;
     my $timeout = 30;
@@ -307,19 +282,6 @@ sub get_node_pvecfg_version {
     return $version_info->{version};
 }
 
-sub pvecfg_min_version {
-    my ($verstr, $major, $minor, $release) = @_;
-
-    return 0 if !$verstr;
-
-    if ($verstr =~ m/^(\d+)\.(\d+)(?:[.-](\d+))?/) {
-        return 1 if version_cmp($1, $major, $2, $minor, $3 // 0, $release) >= 0;
-        return 0;
-    }
-
-    die "internal error: cannot check version of invalid string '$verstr'";
-}
-
 sub parse_number_sets {
     my ($set) = @_;
     my $res = [];
-- 
2.47.3