diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-16 14:08:34 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-16 14:08:34 -0700 |
commit | bd23befbf3cc28a52b7ea3bb4919dd8dcc897634 (patch) | |
tree | 1b3864137c2baa99a65ad61bba222861a96140f8 /src/property/postgres.lisp | |
parent | f0d28fee8719b5aebe177544cf374750a6d01597 (diff) | |
download | consfigurator-bd23befbf3cc28a52b7ea3bb4919dd8dcc897634.tar.gz |
rename to POSTGRES:{DATABASE-HAS-OWNER,USER-CAN-LOGIN}
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/postgres.lisp')
-rw-r--r-- | src/property/postgres.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/postgres.lisp b/src/property/postgres.lisp index 4eb4dcd..ed2ef32 100644 --- a/src/property/postgres.lisp +++ b/src/property/postgres.lisp @@ -70,7 +70,7 @@ #?"CREATE DATABASE ${db-name};" :unless #?"SELECT 'yes' FROM pg_database WHERE datname = '${db-name}';")) -(defproplist has-owner :posix (database owner) +(defproplist database-has-owner :posix (database owner) (:desc #?"Postgres database ${database} has owner ${owner}") (%run-sql #?"ALTER DATABASE ${database} OWNER TO ${owner}" :unless #?"select 'yes' from pg_database d, pg_authid a @@ -85,7 +85,7 @@ where u.rolname='${user}' and g.rolname='${group}' and m.member=u.oid and m.roleid=g.oid;")) -(defproplist can-login :posix (user) +(defproplist user-can-login :posix (user) "Ensure USER can login to Postgres." (:desc #?"Postgres role ${user} can login to database") (%run-sql #?"ALTER USER ${user} WITH LOGIN;" |