diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-06 11:36:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-10-29 11:48:41 -0700 |
commit | 7e73746220aacc750c30340e9a960f839baa228e (patch) | |
tree | 1faf054619fa0f99966cdebe6846608657594b8b /src/property/libvirt.lisp | |
parent | 8837b71e02d93787de60d454a493a8801a6427a5 (diff) | |
download | consfigurator-7e73746220aacc750c30340e9a960f839baa228e.tar.gz |
add & propagate :NO-SERVICES connattr and respect in LIBVIRT:STARTED
This change was prompted by the realisation that RECONNECTS nullifies any
enclosing SERVICE:WITHOUT-STARTING-SERVICES because *HOST* during RECONNECTS
is a distinct HOST value, computed at hostattrs time, which can't be affected
by an enclosing combinator that works by temporarily pushing hostattrs at
:APPLY time. So, for example, if we chroot and subsequently establish a
:SETUID connection, properties might try to start services as the non-root
user and there is no way for them to know they shouldn't.
We can avoid this problem by using a connattr instead because we have a
mechanism for propagating connattrs to subsequently established connections.
And as in most cases the reason for not starting services is solely due to the
way in which we're connecting to the host, a connattr is more appropriate.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/libvirt.lisp')
-rw-r--r-- | src/property/libvirt.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/libvirt.lisp b/src/property/libvirt.lisp index 330bade..e7e5009 100644 --- a/src/property/libvirt.lisp +++ b/src/property/libvirt.lisp @@ -98,7 +98,7 @@ subcommand of virsh(1) to convert the running domain into a transient domain." (I.e., if HOST is a string, ensure the domain named HOST is started; if HOST is a HOST value, start the libvirt domain whose name is HOST's hostname.)" (:desc #?"libvirt domain ${(get-hostname host)} started") - (:check (host-domain-started-p host)) + (:check (or (service:no-services-p) (host-domain-started-p host))) (:apply (mrun "virsh" "start" (get-hostname host)))) (defprop destroyed :posix (host) |