me/guix
Archived
1
0
Fork 0
Code Activity

gnu: libvirt: Don't wrap with PATH.

Browse source 
This reverts commit 903e051a71 to fix
<https://bugs.gnu.org/31365>.  The full path of the 'ip' command is already
embedded, and we want to search 'qemu' in PATH.

* gnu/packages/virtualization.scm (libvirt): Remove 'wrap-libvirtd phase.  Add
configure flags to run qemu as 'nobody:kvm'.
* gnu/services/virtualization.scm (libvirt-service-type): Add 'qemu' to the
system profile.
This commit is contained in:
宋文武 2019-08-28 20:49:40 +08:00
parent e135ef9686
commit ef640db2f5
No known key found for this signature in database
GPG key ID: D415BF253B515976
2 changed files with 9 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/virtualization.scm
View file

@ -401,7 +401,10 @@ manage system or application containers.")
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "--with-polkit"
(list "--with-qemu"
"--with-qemu-user=nobody"
"--with-qemu-group=kvm"
"--with-polkit"
(string-append "--docdir=" (assoc-ref %outputs "out") "/share/doc/"
,name "-" ,version)
"--sysconfdir=/etc"
@ -431,23 +434,13 @@ manage system or application containers.")
(apply invoke "make" "install"
"sysconfdir=/tmp/etc"
"localstatedir=/tmp/var"
make-flags)))
(add-after 'install 'wrap-libvirtd
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/sbin/libvirtd")
`("PATH" = (,(string-append (assoc-ref inputs "iproute")
"/sbin")
,(string-append (assoc-ref inputs "qemu")
"/bin"))))
#t))))))
make-flags))))))
(inputs
`(("libxml2" ,libxml2)
("eudev" ,eudev)
("libpciaccess" ,libpciaccess)
("gnutls" ,gnutls)
("dbus" ,dbus)
("qemu" ,qemu)
("libpcap" ,libpcap)
("libnl" ,libnl)
("libuuid" ,util-linux)

6
gnu/services/virtualization.scm
View file

@ -442,8 +442,10 @@ potential infinite waits blocking libvirt."))
(service-extension polkit-service-type
(compose list libvirt-configuration-libvirt))
(service-extension profile-service-type
(compose list
libvirt-configuration-libvirt))
(lambda (config)
(list
(libvirt-configuration-libvirt config)
qemu)))
(service-extension activation-service-type
%libvirt-activation)
(service-extension shepherd-root-service-type