diff options
| -rw-r--r-- | src/connection/sudo.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/sudo.lisp b/src/connection/sudo.lisp index 1197918..b8c7731 100644 --- a/src/connection/sudo.lisp +++ b/src/connection/sudo.lisp @@ -25,13 +25,13 @@ ;; data to obtain passwords by following the conventions for having ;; prerequisite data sources provide them. -(defmethod preprocess-connection-args ((type (eql :sudo)) &key as (user "root")) +(defmethod preprocess-connection-args ((type (eql :sudo)) &key from (user "root")) (list :sudo :user user :password (and - as + from (destructuring-bind (user host) - (split-string as :separator "@") + (split-string from :separator "@") (get-data-protected-string (strcat "--user-passwd--" host) user))))) |