More background task cleanup

This commit is contained in:
2022-09-23 12:09:39 -07:00
parent e201a8b03e
commit ed759bac31
19 changed files with 102 additions and 179 deletions

View File

@@ -1,19 +1,9 @@
(ns auto-ap.jobs.square
(:gen-class)
(:require [auto-ap.square.core :as square]
[auto-ap.utils :refer [heartbeat]]
[mount.core :as mount]
[auto-ap.datomic :refer [conn]]
[clojure.tools.logging :as log]
[auto-ap.background.metrics :refer [metrics-setup container-tags container-data logging-context]]
[unilog.context :as lc]))
(:require
[auto-ap.jobs.core :refer [execute]]
[auto-ap.square.core :as square]))
(defn -main [& _]
(lc/with-context {:background-job "square-loading-new"}
(mount/start (mount/only #{#'conn #'metrics-setup #'container-tags #'logging-context #'container-data}))
((heartbeat square/upsert-all "square-loading"))
(mount/stop )
(log/info "Stopping Square loading")
(Thread/sleep 15000)
(System/exit 0)))
(execute "square-loading" square/upsert-all))