summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/guix.texi4
-rw-r--r--gnu/services/ssh.scm7
2 files changed, 9 insertions, 2 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index 6bf2ca4f1ad..aee2fc329fb 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -25034,6 +25034,10 @@ The list of command-line arguments to pass to @command{ssh} when it is
25034run. Options @option{-f} and @option{-M} are reserved for AutoSSH and 25034run. Options @option{-f} and @option{-M} are reserved for AutoSSH and
25035may cause undefined behaviour. 25035may cause undefined behaviour.
25036 25036
25037@item @code{auto-start?} (default @code{#t})
25038Whether this service should be started automatically by the Shepherd. If it
25039is @code{#f}, the service has to be started manually with @command{herd start}.
25040
25037@end table 25041@end table
25038@end deftp 25042@end deftp
25039 25043
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index d5c1c778009..675a15b6350 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -622,7 +622,9 @@ object."
622 (port autossh-configuration-port 622 (port autossh-configuration-port
623 (default "0")) 623 (default "0"))
624 (ssh-options autossh-configuration-ssh-options 624 (ssh-options autossh-configuration-ssh-options
625 (default '()))) 625 (default '()))
626 (auto-start? autossh-configuration-auto-start?
627 (default #t)))
626 628
627(define (autossh-file-name config file) 629(define (autossh-file-name config file)
628 "Return a path in /var/run/autossh/ that is writable 630 "Return a path in /var/run/autossh/ that is writable
@@ -670,7 +672,8 @@ object."
670 (autossh-configuration-message config)) 672 (autossh-configuration-message config))
671 #$(string-append "AUTOSSH_PORT=" 673 #$(string-append "AUTOSSH_PORT="
672 (autossh-configuration-port config))))) 674 (autossh-configuration-port config)))))
673 (stop #~(make-kill-destructor)))) 675 (stop #~(make-kill-destructor))
676 (auto-start? (autossh-configuration-auto-start? config))))
674 677
675(define (autossh-service-activation config) 678(define (autossh-service-activation config)
676 (with-imported-modules '((guix build utils)) 679 (with-imported-modules '((guix build utils))