meissa/dda-backup
7
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve postgres credentials

Browse source
This commit is contained in:
bom 2024-08-23 11:54:54 +02:00
parent f028a4b4fd
commit 5ac161f4d4
3 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/dda/backup/postgresql.clj
View file

@ -21,7 +21,8 @@
(defn-spec create-pg-pass! nil? (defn-spec create-pg-pass! nil?
[config ::pg-config] [config ::pg-config]
(let [config-w-defaults (merge default config)] (let [config-w-defaults (merge default config)]
(spit "/root/.pgpass" (domain/pgpass config-w-defaults)))) (spit "/root/.pgpass" (domain/pgpass config-w-defaults))
(i/execute! ["chmod" "0600" "/root/.pgpass"] config)))
(defn-spec drop-create-db! nil? (defn-spec drop-create-db! nil?
[config ::pg-config] [config ::pg-config]

4
src/dda/backup/postgresql/domain.clj
View file

@ -67,8 +67,8 @@
(defn-spec pgpass string? (defn-spec pgpass string?
[config ::pg-config] [config ::pg-config]
(let [{:keys [pg-host pg-db pg-user pg-password]} config] (let [{:keys [pg-host pg-port pg-db pg-user pg-password]} config]
(str pg-host ":" pg-db ":" pg-user ":" pg-password))) (str pg-host ":" pg-port ":" pg-db ":" pg-user ":" pg-password)))
(defn-spec db-drop-create-command ::cd/commands (defn-spec db-drop-create-command ::cd/commands
[config ::pg-config] [config ::pg-config]

2
test/dda/backup/postgresql/domain_test.clj
View file

@ -8,7 +8,7 @@
(st/instrument `cut/db-drop-create-command) (st/instrument `cut/db-drop-create-command)
(deftest should-calculate-pgpass (deftest should-calculate-pgpass
(is (= "localhost:mydb:user:password" (is (= "localhost:5432:mydb:user:password"
(cut/pgpass {:restic-repository "repo" (cut/pgpass {:restic-repository "repo"
:backup-path "dir-at-repo" :backup-path "dir-at-repo"
:pg-host "localhost" :pg-host "localhost"