diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-13 19:38:55 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-13 19:38:55 -0700 |
commit | 82804c132bc959f1f6e560957942da826fbc17de (patch) | |
tree | 79c443fe77998bab7cd57148c95b5887c31180b6 /src/property/sshd.lisp | |
parent | 350be6c791db8c943b284d8e53d768a1a2a1ee50 (diff) | |
download | consfigurator-82804c132bc959f1f6e560957942da826fbc17de.tar.gz |
SSHD:CONFIGURED: when configuration is changed, restart ssh daemon
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/sshd.lisp')
-rw-r--r-- | src/property/sshd.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/property/sshd.lisp b/src/property/sshd.lisp index 9fb6f2d..c1a969b 100644 --- a/src/property/sshd.lisp +++ b/src/property/sshd.lisp @@ -30,7 +30,10 @@ "Set key--value pairs in /etc/ssh/sshd_config." (:desc (format nil "sshd configured ~{~A ~A~^, ~}" pairs)) (:apply - (apply #'file:contains-conf-space "/etc/ssh/sshd_config" pairs))) + (if (eql :no-change + (apply #'file:contains-conf-space "/etc/ssh/sshd_config" pairs)) + :no-change + (service:reloaded "sshd")))) (defprop no-passwords :posix () "Configure SSH to disallow password logins. |