From 74f18afbde618b84d09567a2a4152b82b705d70a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 25 May 2021 13:12:20 -0700 Subject: USER:HAS-ENABLED-PASSWORD: make INITIAL-PASSWORD a keyword argument Signed-off-by: Sean Whitton --- src/property/user.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/property/user.lisp b/src/property/user.lisp index b10b258..bf30eb0 100644 --- a/src/property/user.lisp +++ b/src/property/user.lisp @@ -39,7 +39,7 @@ Note that this uses getent(1) and so is not strictly POSIX-compatible." (file:contains-lines "/etc/shells" shell) (mrun "chsh" "--shell" shell username))) -(defprop has-enabled-password :posix (username initial-password) +(defprop has-enabled-password :posix (username &key (initial-password "changeme")) "Ensures that it is possible to login as USERNAME; if this requires enabling the account's password, also set it to INITIAL-PASSWORD. The main purpose of this property is to ensure that in a freshly installed -- cgit v1.2.3