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

credential-rotation #1

Merged
jem merged 18 commits from credential-rotation into main 2024-12-27 09:25:09 +00:00
Conversation 0 Commits 18 Files changed 15 +20 -13
1 changed files with 20 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 4330173084 - Show all commits

33
src/dda/backup/cred_rot/domain.clj
View file

@ -38,27 +38,34 @@
; Refer to "docs/CredentialRotation.md" for specifics ; Refer to "docs/CredentialRotation.md" for specifics
(defn-spec list-passwords-command ::cd/command (defn-spec base-command ::cd/command
[config ::config] [config ::config
command ::cd/command]
(let [{:keys [restic-repository password-file (let [{:keys [restic-repository password-file
certificate-file new-password-file]} config] certificate-file new-password-file]} config]
(into (into
[] []
(concat ["restic" "-r" restic-repository "key" "list" "--json"] (concat ["restic" "-r" restic-repository]
(cond (cond
(some? certificate-file) (some? certificate-file)
["--cacert" certificate-file] ["--cacert" certificate-file]
(some? password-file) (some? password-file)
["--password-file" password-file] ["--password-file" password-file]
:else :else
[]))))) [])
command))))
(defn-spec add-new-password! nil? (defn-spec list-passwords-command ::cd/command
[new-password-file ::new-password-file] [config ::config]
; TODO (base-command config ["key" "list" "--json"]))
)
(defn-spec replace-old-password! nil? (defn-spec add-password-command ::cd/command
[] [config ::config]
; TODO (let [{:keys [new-password-file]} config]
) (base-command config ["key" "add" "--new-password-file" new-password-file])))
(defn-spec remove-password-command ::cd/command
[config ::config
new-id ::id
old-id ::id]
(base-command config ["key" "remove" "--key-hint" new-id old-id]))