diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 13:12:20 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 13:12:20 -0700 |
| commit | 74f18afbde618b84d09567a2a4152b82b705d70a (patch) | |
| tree | 7d1aa384f865891c7ea52c299bbc02449367550c | |
| parent | 5ecad8f4c59a2908fc0c71e3be3324c088d7c1e7 (diff) | |
| download | consfigurator-74f18afbde618b84d09567a2a4152b82b705d70a.tar.gz | |
USER:HAS-ENABLED-PASSWORD: make INITIAL-PASSWORD a keyword argument
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/user.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |