[PATCH v3 qemu-server 4/6] helpers: add helper for min kvm package version comparison

[Christian Ebner <c.ebner@proxmox.com>]

To be used for checking the minimum version of qemu-kvm package
version, where the binary version check is not enough to detect
versions having the pbs-restore `no-cache` flag.

Signed-off-by: Christian Ebner <c.ebner@proxmox.com>
---
changes since version 2:
- adapt helper function name to fit better to codebase and be more
  expressive
- call kvm_user_version() from helper itself instead of fetching and
  passing the version string, reducing potential misuse.
- drop useless $subver matching

 src/PVE/QemuServer/Helpers.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/PVE/QemuServer/Helpers.pm b/src/PVE/QemuServer/Helpers.pm
index 8047d9e6..5065a457 100644
--- a/src/PVE/QemuServer/Helpers.pm
+++ b/src/PVE/QemuServer/Helpers.pm
@@ -21,6 +21,7 @@ our @EXPORT_OK = qw(
     parse_number_sets
     windows_version
     get_host_arch
+    binary_package_version_at_least
 );
 
 my $nodename = PVE::INotify::nodename();
@@ -91,6 +92,18 @@ sub kvm_user_version {
     return 'unknown';
 }
 
+sub binary_package_version_at_least {
+    my ($major, $minor, $micro, $rel, $binary) = @_;
+
+    my $package_version_str = kvm_user_version($binary, 1);
+    if ($package_version_str =~ m/^(\d+)\.(\d+)(?:\.(\d+))?-(\d+)/) {
+        return 1 if version_cmp($1, $major, $2, $minor, $3 // 0, $micro, $4, $rel) >= 0;
+        return 0;
+    }
+
+    die "internal error: cannot check version of invalid string '$package_version_str'";
+}
+
 # Paths and directories
 
 # FIXME: MAJOR VERSION: use /run/qemu-server everywhere instead of mixing /run and /var/run and rely
-- 
2.47.3