ts-xen-install: Create xen-qemuuser-range-base

It is fine to do in all jobs.  libxl will only use this if we ask it
to.

We do need to check whether the user exists already, since adduser
does not seem to have a mode which exits zero in that case.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/ts-xen-install b/ts-xen-install
index 9913e850b3a6c1c66673d626a10983bf54b23c7e..1ec236f9883892fd31e6326f6bdd288161858fa3 100755 (executable)
--- a/ts-xen-install
+++ b/ts-xen-install
@@ -129,6 +129,9 @@ END
 }
 
 sub adjustconfig () {
+    my $quser = 'xen-qemuuser-range-base';
+    target_cmd_root($ho, "id $quser || adduser --system --uid=200000 $quser");
+
     target_editfile_root($ho, "/etc/xen/xend-config.sxp",
                         "xend-config.sxp", sub {
        my (@domains) = (qw(localhost localhost.localdomain),