fix(xo-server): use callAsync to install XCP-ng updates

Fixes https://team.vates.fr/vates/pl/bkqyatm7w3yquyw1o9watx3c1o

CHANGELOG.unreleased.md

@@ -11,6 +11,8 @@
 
 > Users must be able to say: “I had this issue, happy to know it's fixed”
 
+- [Pool] Fix `Headers Timeout Error` when installing patches on XCP-ng
+
 ### Packages to release
 
 > When modifying a package, add it here with its release type.
@@ -27,4 +29,6 @@
 
 <!--packages-start-->
 
+- xo-server patch
+
 <!--packages-end-->

packages/xo-server/package.json

@@ -40,6 +40,8 @@
     "@vates/parse-duration": "^0.1.1",
     "@vates/predicates": "^1.1.0",
     "@vates/read-chunk": "^1.2.0",
+    "@vates/xml": "^2.0.0",
+    "@vates/xml-rpc": "^1.0.0",
     "@xen-orchestra/async-map": "^0.1.2",
     "@xen-orchestra/backups": "^0.48.0",
     "@xen-orchestra/cron": "^1.0.6",

packages/xo-server/src/xapi/mixins/patching.mjs

@@ -8,7 +8,9 @@ import { createLogger } from '@xen-orchestra/log'
 import { decorateObject } from '@vates/decorate-with'
 import { defer as deferrable } from 'golike-defer'
 import { extractOpaqueRef } from '@xen-orchestra/xapi'
+import { parseXml as parseXmlTree } from '@vates/xml/parse'
 import { Task } from '@xen-orchestra/mixins/Tasks.mjs'
+import { xmlRpcParser } from '@vates/xml-rpc/parser'
 
 import ensureArray from '../../_ensureArray.mjs'
 import { debounceWithKey } from '../../_pDebounceWithKey.mjs'
@@ -309,7 +311,8 @@ const methods = {
     hosts = hosts.sort(({ $ref }) => ($ref === this.pool.master ? -1 : 1))
     for (const host of hosts) {
       // With throw in case of error with XCP-ng>=8.2.1
-      const result = JSON.parse(await this.call('host.call_plugin', host.$ref, 'updater.py', 'update', {}))
+      const xml = await this.callAsync('host.call_plugin', host.$ref, 'updater.py', 'update', {})
+      const result = JSON.parse(xmlRpcParser.parse_value(parseXmlTree(xml)))
 
       // Defined and different than 0 in case of error with XCP-ng<8.2.1
       const { exit } = result