37 lines
857 B
Clojure
Executable file
37 lines
857 B
Clojure
Executable file
#!/usr/bin/env bb
|
|
|
|
(require
|
|
'[dda.backup.core :as bc]
|
|
'[dda.backup.config :as cfg]
|
|
'[dda.backup.restic :as rc]
|
|
'[dda.backup.postgresql :as pg]
|
|
'[dda.backup.monitoring :as mon]
|
|
'[dda.backup.backup :as bak])
|
|
|
|
(def config (cfg/read-config "/usr/local/bin/config.edn"))
|
|
|
|
(defn prepare!
|
|
[]
|
|
(bc/create-aws-credentials! (:aws-config config))
|
|
(pg/create-pg-pass! (:db-config config)))
|
|
|
|
(defn restic-repo-init!
|
|
[]
|
|
(rc/init! (:file-config config))
|
|
(rc/init! (:db-config config)))
|
|
|
|
(defn restic-backup!
|
|
[]
|
|
(bak/backup-file! (:file-config config))
|
|
(bak/backup-db! (:db-config config)))
|
|
|
|
|
|
(try
|
|
(restic-repo-init!)
|
|
(mon/backup-start-metrics! (:db-config config))
|
|
(prepare!)
|
|
(restic-repo-init!)
|
|
(restic-backup!)
|
|
(mon/backup-success-metrics! (:db-config config))
|
|
(catch Exception e
|
|
(mon/backup-fail-metrics! (:db-config config))))
|
