amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: postgresql: Don't initdb when directory exists.

Browse source 
* gnu/services/databases.scm (postgresql-activation): Check if
directory exists.

Reviewed-by: Dale Mellor <guix-devel-0brg6b@rdmp.org>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Change-Id: Id563a3e8df2cb5b805e64cd8319303c65d308c69
This commit is contained in:
Robert Vollmert 2024-03-08 11:51:01 +00:00 • committed by Ludovic Courtès
parent b0a37d8b1a
commit ed03a0aa9b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 35 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

34
gnu/services/databases.scm
View file

@ -235,20 +235,7 @@ host all all ::1/128 md5"))
(use-modules (guix build utils) (use-modules (guix build utils)
(ice-9 match)) (ice-9 match))
(let ((user (getpwnam "postgres")) (let ((user (getpwnam "postgres")))
(initdb (string-append
#$(final-postgresql postgresql
extension-packages)
"/bin/initdb"))
(initdb-args
(append
(if #$locale
(list (string-append "--locale=" #$locale))
'()))))
;; Create db state directory.
(mkdir-p #$data-directory)
(chown #$data-directory (passwd:uid user) (passwd:gid user))
;; Create the socket directory. ;; Create the socket directory.
(let ((socket-directory (let ((socket-directory
#$(postgresql-config-file-socket-directory config-file))) #$(postgresql-config-file-socket-directory config-file)))
@ -261,11 +248,26 @@ host all all ::1/128 md5"))
(mkdir-p #$log-directory) (mkdir-p #$log-directory)
(chown #$log-directory (passwd:uid user) (passwd:gid user))) (chown #$log-directory (passwd:uid user) (passwd:gid user)))
(unless (file-exists? #$data-directory)
(let ((initdb (string-append
#$(final-postgresql postgresql
extension-packages)
"/bin/initdb"))
(initdb-args
(append
(if #$locale
(list (string-append "--locale=" #$locale))
'()))))
;; Create db state directory.
(mkdir-p #$data-directory)
(chown #$data-directory (passwd:uid user) (passwd:gid user))
;; Drop privileges and init state directory in a new ;; Drop privileges and init state directory in a new
;; process. Wait for it to finish before proceeding. ;; process. Wait for it to finish before proceeding.
(match (primitive-fork) (match (primitive-fork)
(0 (0
;; Exit with a non-zero status code if an exception is thrown. ;; Exit with a non-zero status code if an exception is
;; thrown.
(dynamic-wind (dynamic-wind
(const #t) (const #t)
(lambda () (lambda ()
@ -279,7 +281,7 @@ host all all ::1/128 md5"))
initdb-args))) initdb-args)))
(lambda () (lambda ()
(primitive-exit 1)))) (primitive-exit 1))))
(pid (waitpid pid)))))))) (pid (waitpid pid))))))))))
(define postgresql-shepherd-service (define postgresql-shepherd-service
(match-lambda (match-lambda