;; 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 Sucursal en España SL

(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))))