TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

services: Transient inetd services inherit requirements.

Browse source 
That way, per-connection transient services such as 'sshd-123' inherit
dependencies of their "parent" ('sshd' in this example), which is more
consistent than not depending on anything.

* gnu/services/dict.scm (dicod-shepherd-service): Pass #:requirements to
'make-inetd-constructor'.
* gnu/services/messaging.scm (bitlbee-shepherd-service): Likewise.
* gnu/services/ssh.scm (openssh-shepherd-service): Likewise.
* gnu/services/vnc.scm (xvnc-shepherd-service): Likewise.
This commit is contained in:
Ludovic Courtès 2023-05-20 15:41:07 +02:00
parent d0168e1895
commit 896a51258a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
4 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gnu/services/dict.scm
View file

@ -176,6 +176,7 @@ (define (dicod-shepherd-service config)
(addrinfo:addr
(car (getaddrinfo #$(first interfaces)
"dict")))))
#:requirements '#$requirement
#:user "dicod" #:group "dicod"
#:service-name-stem "dicod")
(make-forkexec-constructor

1
gnu/services/messaging.scm
View file

@ -872,6 +872,7 @@ (define bitlbee-shepherd-service
#$(number->string port)
(logior AI_NUMERICHOST
AI_NUMERICSERV))))))
#:requirements '#$requirement
#:service-name-stem "bitlbee"
#:user "bitlbee" #:group "bitlbee"

3
gnu/services/ssh.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014-2019, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014-2019, 2022, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
@ -607,6 +607,7 @@ (define ipv6-support?
(make-socket-address AF_INET6 IN6ADDR_ANY
#$port-number)))
'()))
#:requirements '#$requirement
#:max-connections #$max-connections)
(make-forkexec-constructor #$openssh-command
#:pid-file #$pid-file)))

1
gnu/services/vnc.scm
View file

@ -228,6 +228,7 @@ (define (xvnc-shepherd-service config)
,@(if ipv6-socket
(list (endpoint ipv6-socket))
'()))
#:requirements '#$requirement
#:user "xvnc"
#:group "xvnc"))
#~(make-forkexec-constructor