blob: 4eb4dcd21b1e91b763ca8695784437b9aef41a67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
;;; Consfigurator -- Lisp declarative configuration management system
;;; Copyright (C) 2021-2022 David Bremner <david@tethera.net>
;;; This file is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3, or (at your option)
;;; any later version.
;;; This file is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(in-package :consfigurator.property.postgres)
(named-readtables:in-readtable :consfigurator)
(defproplist installed :posix ()
"Ensure that postgresql and associated utilities are installed."
(:desc "postgresql and associated utilities installed")
(os:etypecase
(debianlike (apt:installed "postgresql" "postgresql-client"))))
(defprop superuser-is :posix (name)
"Record Postgres superuser"
(:desc "postgres superuser is ${name}")
(:hostattrs
(push-hostattr 'postgres-superuser name)))
(defprop %psql :posix (sql &key unless)
(:check
(declare (ignore sql))
(and
unless
(let ((result (string-trim '(#\Space #\Newline #\Tab #\Return)
(mrun "psql" "-t" "postgres" :input unless))))
(informat 4 "~&PSQL=> ~a" result)
;; this is case insensitive on purpose.
(string-equal "yes" result))))
(:apply
(declare (ignore unless))
(mrun :inform "psql" "postgres" :input sql)))
(defproplist %run-sql :posix (sql &key unless)
(installed)
(as (or (get-hostattrs-car 'postgres-superuser) "postgres")
(%psql sql :unless unless)))
(defproplist has-role :posix (role)
"Ensure ROLE exists in the Postgres cluster."
(:desc #?"Postgres role ${role} exists")
(%run-sql
#?"DO $$
BEGIN
CREATE ROLE ${role};
EXCEPTION WHEN duplicate_object THEN RAISE NOTICE '%, skipping',
SQLERRM USING ERRCODE = SQLSTATE;
END
$$;"
:unless #?"select 'yes' from pg_roles where rolname='${role}';"))
(defproplist has-database :posix (db-name)
"Ensure Postgres DATABASE exists"
(:desc #?"Postgres database ${db-name} exists")
;; this has a potential race condition between test and creation
(%run-sql
#?"CREATE DATABASE ${db-name};"
:unless #?"SELECT 'yes' FROM pg_database WHERE datname = '${db-name}';"))
(defproplist 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
where d.datname='${database}' and d.datdba = a.oid
and a.rolname='${owner}';"))
(defproplist has-group :posix (user group)
"Ensure Postgres user USER is a member of GROUP."
(:desc #?"Postgres role ${user} is a member of group ${group}")
(%run-sql #?"ALTER GROUP ${group} ADD USER ${user}"
:unless #?"select 'yes' from pg_auth_members m, pg_authid u, pg_authid g
where u.rolname='${user}' and g.rolname='${group}'
and m.member=u.oid and m.roleid=g.oid;"))
(defproplist 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;"
:unless #?"select 'yes' from pg_authid where rolname='${user}' and rolcanlogin=true;"))
|