Work around broken screen install on XCP-ng 9 hosts

Signed-off-by: Gaëtan Lehmann <gaetan.lehmann@vates.tech>

Author: glehmann

lib/vm.py

@@ -784,6 +784,9 @@ def is_in_uefi_shell(self) -> bool:
         tmp_file = res_host.ssh('mktemp')
         session = f"detached-cat-{self.uuid}"
         ret = False
+        # screen install is broken on RHEL, see https://bugzilla.redhat.com/show_bug.cgi?id=2385964
+        if res_host.xcp_version.major == 9 and not res_host.ssh('ls -ld /run/screen').startswith('drwxrwxrwx'):
+            res_host.ssh('dnf reinstall -y screen')
         try:
             res_host.ssh(f'screen -dmS {session}')
             # run `cat` on the pty in a background screen session and redirect to a tmp file.