services: bitlbee: Make /var/lib/bitlbee when activating.

* gnu/services/networking.scm (bitlbee-service): Add 'activate' field.
This commit is contained in:
Ludovic Courtès 2015-03-12 19:10:44 +01:00
parent 9a10acc986
commit 9751c39a6d
1 changed files with 8 additions and 0 deletions

View File

@ -286,6 +286,14 @@ configuration file."
(service (service
(provision '(bitlbee)) (provision '(bitlbee))
(requirement '(user-processes loopback)) (requirement '(user-processes loopback))
(activate #~(begin
(use-modules (guix build utils))
;; This directory is used to store OTR data.
(mkdir-p "/var/lib/bitlbee")
(let ((user (getpwnam "bitlbee")))
(chown "/var/lib/bitlbee"
(passwd:uid user) (passwd:gid user)))))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$bitlbee "/sbin/bitlbee") (list (string-append #$bitlbee "/sbin/bitlbee")
"-n" "-F" "-u" "bitlbee" "-c" #$conf))) "-n" "-F" "-u" "bitlbee" "-c" #$conf)))