c4k-forgejo/infrastructure/backup/image/resources/list-snapshots.bb

21 lines
396 B
BlitzBasic
Raw Normal View History

2024-08-23 06:45:43 +00:00
#!/usr/bin/env bb
2024-08-23 09:39:59 +00:00
(require
'[dda.backup.core :as bc]
2025-01-13 15:04:12 +00:00
'[dda.backup.config :as cfg]
2024-08-23 09:39:59 +00:00
'[dda.backup.restic :as rc])
2024-08-23 06:45:43 +00:00
2025-01-13 15:04:12 +00:00
(def config (cfg/read-config "/usr/local/bin/config.edn"))
2024-08-23 10:10:07 +00:00
2024-08-23 09:39:59 +00:00
(defn prepare!
[]
2025-01-13 15:04:12 +00:00
(bc/create-aws-credentials! (:aws-config config)))
2024-08-23 09:39:59 +00:00
2024-08-23 06:45:43 +00:00
(defn list-snapshots!
[]
2025-01-13 15:04:12 +00:00
(rc/list-snapshots! (:file-config config))
(rc/list-snapshots! (:db-config config)))
2024-08-23 06:45:43 +00:00
2024-08-23 09:39:59 +00:00
(prepare!)
2024-08-23 06:45:43 +00:00
(list-snapshots!)