diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-29 19:50:11 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-29 19:56:19 -0700 |
| commit | 00542fc6aa17474220405f223261ce89c8896bbf (patch) | |
| tree | 226c85abdf4012e98b2c444f14f1ddb2f024faf0 | |
| parent | 214fb5ef7195ef7239f10dcd36c2eaf37b1b5e72 (diff) | |
| download | consfigurator-00542fc6aa17474220405f223261ce89c8896bbf.tar.gz | |
USER:{HAS-ACCOUNT-WITH-UID,%HAS-UID-GID}: tweak docstrings
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/user.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/property/user.lisp b/src/property/user.lisp index 84ddc43..58ab373 100644 --- a/src/property/user.lisp +++ b/src/property/user.lisp @@ -30,8 +30,6 @@ Note that this uses getent(1) and so is not strictly POSIX-compatible." (mrun "useradd" "-m" username))) (defprop %has-uid-gid :posix (username uid gid) - "Ensure USERNAME has given UID and GID, group USERNAME has gid GID, -and ~USERNAME is owned by UID:GID." (:check (and (= uid (parse-integer (passwd-entry 2 username))) (= gid (parse-integer (passwd-entry 3 username))) @@ -47,7 +45,8 @@ and ~USERNAME is owned by UID:GID." (defproplist has-account-with-uid :posix (username uid &key (gid uid)) "Ensure there is an account for USERNAME with uid UID. -Also ensure the group USERNAME has GID and ~USERNAME is owned by UID:GID." +Also ensure the group named USERNAME has gid GID, USERNAME's primary group is +that group, and ~USERNAME and its contents are owned by UID:GID." (:hostattrs (os:required 'os:debianlike)) (:desc #?"${username} has uid ${uid} gid ${gid}") (has-account username) |