install: Don't start sshd by default.
Reported by Christopher Baines <mail@cbaines.net> at <https://lists.gnu.org/archive/html/guix-devel/2017-12/msg00058.html>. * gnu/services/ssh.scm (<openssh-configuration>)[%auto-start?]: New field. (openssh-shepherd-service): Honor it. * gnu/system/install.scm (%installation-services): Set '%auto-start?' to #f for openssh-service-type.
This commit is contained in:
parent
39b27f4eae
commit
aab322d909
@ -304,7 +304,14 @@ (define-record-type* <openssh-configuration>
|
||||
|
||||
;; list of user-name/file-like tuples
|
||||
(authorized-keys openssh-authorized-keys
|
||||
(default '())))
|
||||
(default '()))
|
||||
|
||||
;; Boolean
|
||||
;; XXX: This should really be handled in an orthogonal way, for instance as
|
||||
;; proposed in <https://bugs.gnu.org/27155>. Keep it internal/undocumented
|
||||
;; for now.
|
||||
(%auto-start? openssh-auto-start?
|
||||
(default #t)))
|
||||
|
||||
(define %openssh-accounts
|
||||
(list (user-group (name "sshd") (system? #t))
|
||||
@ -445,7 +452,8 @@ (define openssh-command
|
||||
(provision '(ssh-daemon))
|
||||
(start #~(make-forkexec-constructor #$openssh-command
|
||||
#:pid-file #$pid-file))
|
||||
(stop #~(make-kill-destructor)))))
|
||||
(stop #~(make-kill-destructor))
|
||||
(auto-start? (openssh-auto-start? config)))))
|
||||
|
||||
(define (openssh-pam-services config)
|
||||
"Return a list of <pam-services> for sshd with CONFIG."
|
||||
|
@ -264,7 +264,10 @@ (define bare-bones-os
|
||||
;; The root account is passwordless, so make sure
|
||||
;; a password is set before allowing logins.
|
||||
(allow-empty-passwords? #f)
|
||||
(password-authentication? #t)))
|
||||
(password-authentication? #t)
|
||||
|
||||
;; Don't start it upfront.
|
||||
(%auto-start? #f)))
|
||||
|
||||
;; Since this is running on a USB stick with a overlayfs as the root
|
||||
;; file system, use an appropriate cache configuration.
|
||||
|
Loading…
Reference in New Issue
Block a user