diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-29 16:24:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-29 16:24:51 -0700 |
commit | 29eaefe485bac9a36b14e51ac65771bb3e70401a (patch) | |
tree | 14cc282c9788a3453fc54b4c8277a8a817ef5a15 /src/property | |
parent | 3959be03083f1a9710546ef8dc0f4a645c0d2f9e (diff) | |
download | consfigurator-29eaefe485bac9a36b14e51ac65771bb3e70401a.tar.gz |
rename to SSH:{PARENT-IS-,}SYSTEM-KNOWN-HOST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property')
-rw-r--r-- | src/property/ssh.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/property/ssh.lisp b/src/property/ssh.lisp index 0c15a49..4600900 100644 --- a/src/property/ssh.lisp +++ b/src/property/ssh.lisp @@ -102,23 +102,23 @@ identifying HOST, to simplify refreshing keys." :aliases aliases :short-hostname short-hostname :ips ips :additional-names additional-names)) -(defproplist globally-known-host :posix (host &key short-hostname (aliases t) - (ips t) additional-names) +(defproplist system-known-host :posix (host &key short-hostname (aliases t) + (ips t) additional-names) "Ensures that SSH host keys of HOST are stored in /etc/ssh/ssh_known_hosts. If SHORT-HOSTNAME, include the part of HOST's hostname before the first dot as one of the hostnames identifying HOST. Removes any other host keys identifying HOST, to simplify refreshing keys." - (:desc #?"${(get-hostname host)} is globally known host to ssh client") + (:desc #?"${(get-hostname host)} is system known host to ssh client") (%update-known-hosts "/etc/ssh/ssh_known_hosts" host :aliases aliases :short-hostname short-hostname :ips ips :additional-names additional-names)) -(defproplist parent-is-globally-known-host :posix +(defproplist parent-is-system-known-host :posix (&key short-hostname (aliases t) (ips t) additional-names) "Ensures that the SSH host keys of the parent host are stored in -/etc/ssh/ssh_known_hosts; SHORT-HOSTNAME is as for SSH:GLOBALLY-KNOWN-HOST." - (:desc "Parent host is globally known host to ssh client") +/etc/ssh/ssh_known_hosts; SHORT-HOSTNAME is as for SSH:SYSTEM-KNOWN-HOST." + (:desc "Parent host is system known host to ssh client") (%update-known-hosts "/etc/ssh/ssh_known_hosts" (make-host :hostattrs (get-hostattrs :parent-hostattrs)) |