mirror of
https://github.com/penpot/penpot.git
synced 2026-05-24 01:13:43 +00:00
51 lines
1.5 KiB
Clojure
51 lines
1.5 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.migrations.media-refs
|
|
"A media refs migration fixer script"
|
|
(:require
|
|
[app.common.exceptions :as ex]
|
|
[app.common.logging :as l]
|
|
[app.common.pprint]
|
|
[app.srepl.main :as srepl]
|
|
[app.srepl.procs.media-refs]
|
|
[clojure.edn :as edn]))
|
|
|
|
(def ^:private required-services
|
|
[:app.storage.s3/backend
|
|
:app.storage.fs/backend
|
|
:app.storage/storage
|
|
:app.metrics/metrics
|
|
:app.db/pool
|
|
:app.worker/netty-io-executor])
|
|
|
|
(def default-options
|
|
{:rollback? false})
|
|
|
|
(defn -main
|
|
[& [options]]
|
|
(try
|
|
(let [config-var (requiring-resolve 'app.main/system-config)
|
|
start-var (requiring-resolve 'app.main/start-custom)
|
|
stop-var (requiring-resolve 'app.main/stop)
|
|
|
|
config (select-keys @config-var required-services)
|
|
options (if (string? options)
|
|
(ex/ignoring (edn/read-string options))
|
|
{})
|
|
options (-> (merge default-options options)
|
|
(assoc :proc-fn #'app.srepl.procs.media-refs/fix-media-refs))]
|
|
|
|
(start-var config)
|
|
(l/inf :hint "executing media-refs migration" :options options)
|
|
(srepl/process! options)
|
|
(stop-var)
|
|
(System/exit 0))
|
|
(catch Throwable cause
|
|
(ex/print-throwable cause)
|
|
(flush)
|
|
(System/exit -1))))
|