05/10: services: bitlbee: Run as user "bitlbee".

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ecfcdff23a5ce390a7edc019c1f1216c4843dc04
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon May 16 15:29:06 2022 +0200

    services: bitlbee: Run as user "bitlbee".
    
    Fixes <https://issues.guix.gnu.org/55450>.
    
    Fixes a bug introduced in 211fe3f66e6dfdaa64974931c458ab1d92afc182
    whereby the inetd-spawned process would run as root (it would still run
    in a separate user namespace, with UID 1000 inside of it, but had the
    authority of root).
    
    * gnu/services/messaging.scm (bitlbee-shepherd-service): Pass #:user
    and #:group to 'make-inetd-constructor'.  Remove "-u bitlbee" argument
    to BITLBEE*.
---
 gnu/services/messaging.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index 26d47f47de..ec1acba416 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -855,14 +855,14 @@ string, you could instantiate a prosody service like this:
                 (start #~(if (defined? 'make-inetd-constructor)
 
                              (make-inetd-constructor
-                              (list #$bitlbee* "-I"
-                                    "-u" "bitlbee" "-c" #$conf)
+                              (list #$bitlbee* "-I" "-c" #$conf)
                               (addrinfo:addr
                                (car (getaddrinfo #$interface
                                                  #$(number->string port)
                                                  (logior AI_NUMERICHOST
                                                          AI_NUMERICSERV))))
                               #:service-name-stem "bitlbee"
+                              #:user "bitlbee" #:group "bitlbee"
 
                               ;; Allow 'bitlbee-purple' to use libpurple 
plugins.
                               #:environment-variables