06/06: services: bitlbee: Run under a UTF-8 locale.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 47d73ac41d4613e3e45a8bb338aaa93aace2dd3b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 3 23:49:02 2022 +0200

    services: bitlbee: Run under a UTF-8 locale.
    
    * gnu/services/messaging.scm (bitlbee-shepherd-service): In the
    'make-inetd-constructor' case, set GUIX_LOCPATH and LC_ALL.  In the
    'least-authority-wrapper' call, preserve GUIX_LOCPATH and LC_ALL, and
    map /run/current-system/locale.
---
 gnu/services/messaging.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index ec1acba416..48eff27b49 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -20,9 +20,10 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gnu services messaging)
-  #:use-module (gnu packages messaging)
   #:use-module (gnu packages admin)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages irc)
+  #:use-module (gnu packages messaging)
   #:use-module (gnu packages tls)
   #:use-module (gnu services)
   #:use-module (gnu services shepherd)
@@ -829,11 +830,14 @@ string, you could instantiate a prosody service like this:
                        (file-append bitlbee "/sbin/bitlbee")
                        #:name "bitlbee"
                        #:preserved-environment-variables
-                       '("PURPLE_PLUGIN_PATH")
+                       '("PURPLE_PLUGIN_PATH" "GUIX_LOCPATH" "LC_ALL")
                        #:mappings (list (file-system-mapping
                                          (source "/var/lib/bitlbee")
                                          (target source)
                                          (writable? #t))
+                                        (file-system-mapping
+                                         (source "/run/current-system/locale")
+                                         (target source))
                                         (file-system-mapping
                                          (source conf)
                                          (target conf)))
@@ -867,7 +871,8 @@ string, you could instantiate a prosody service like this:
                               ;; Allow 'bitlbee-purple' to use libpurple 
plugins.
                               #:environment-variables
                               (list (string-append "PURPLE_PLUGIN_PATH="
-                                                   #$plugins "/lib/purple-2")))
+                                                   #$plugins "/lib/purple-2")
+                                    "GUIX_LOCPATH=/run/current-system/locale"))
 
                              (make-forkexec-constructor/container
                               (list #$(file-append bitlbee "/sbin/bitlbee")