export SSHD:HOST-PUBLIC-KEYS hostattr, unexport GET-HOST-PUBLIC-KEYS

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 14 insertions, 2 deletions

diff --git a/src/property/ssh.lisp b/src/property/ssh.lisp
index 3f98d2a..0c15a49 100644
--- a/src/property/ssh.lisp
+++ b/src/property/ssh.lisp
@@ -42,6 +42,18 @@
                    `(file:secret-uploaded ,iden1 ,dest ,dest)
                    `(file:host-secret-uploaded ,dest))))
 
+(defun get-host-public-keys (host &key short-hostname (aliases t)
+                                    (ips t) additional-names)
+  (let* ((host (preprocess-host host))
+         (hostname (get-hostname host))
+         (short (and short-hostname (list (get-short-hostname host))))
+         (aliases (and aliases (get-hostattrs :aliases host)))
+         (ips (and ips (append (get-hostattrs :ipv6 host)
+                               (get-hostattrs :ipv4 host)))))
+    (cons (format nil "~{~A~^,~}"
+                  (cons hostname (append aliases short ips additional-names)))
+          (mapcar #'cdr (get-hostattrs 'sshd:host-public-keys host)))))
+
 (defprop %update-known-hosts :posix
     (file host &key short-hostname (aliases t) (ips t) additional-names)
   (:apply
@@ -50,7 +62,7 @@
     (lambda (lines)
       (loop with host = (preprocess-host host)
             with (identifier . keys)
-              = (sshd:get-host-public-keys
+              = (get-host-public-keys
                  host :aliases aliases :short-hostname short-hostname
                  :ips ips :additional-names additional-names)
             and hostname = (get-hostname host)
@@ -71,7 +83,7 @@
                               collect (format nil "~A ~A" identifier key))))))))
   (:unapply
    (destructuring-bind (identifier . keys)
-       (sshd:get-host-public-keys
+       (get-host-public-keys
         host :aliases aliases :short-hostname short-hostname
         :ips ips :additional-names additional-names)
      (file:lacks-lines file