diff options
Diffstat (limited to 'src/property/ssh.lisp')
| -rw-r--r-- | src/property/ssh.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/ssh.lisp b/src/property/ssh.lisp index 08b7b32..15169cd 100644 --- a/src/property/ssh.lisp +++ b/src/property/ssh.lisp @@ -21,7 +21,7 @@ (defprop authorized-keys :posix (&rest keys) "Permits using KEYS to SSH in as the current user." (:desc (declare (ignore keys)) - (strcat (get-user) " has authorized_keys")) + (strcat (get-connattr :remote-user) " has authorized_keys")) (:apply (file:directory-exists ".ssh") (apply #'file:contains-lines ".ssh/authorized_keys" keys)) |