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,23 +1,12 @@
(ns auto-ap.jobs.yodlee2
(:gen-class)
(:require [auto-ap.utils :refer [heartbeat]]
[mount.core :as mount]
[auto-ap.datomic :refer [conn]]
[auto-ap.yodlee.core2 :as client2]
[clojure.tools.logging :as log]
[auto-ap.background.metrics :refer [metrics-setup container-tags container-data logging-context]]
[unilog.context :as lc]
[auto-ap.import.yodlee2 :as yodlee2]))
(:require
[auto-ap.import.yodlee2 :as yodlee2]
[auto-ap.jobs.core :refer [execute]]
[auto-ap.yodlee.core2 :as client2]))
(defn -main [& _]
(try
(lc/with-context {:background-job "import-yodlee"}
(mount/start (mount/only #{#'conn #'metrics-setup #'container-tags #'logging-context #'container-data}))
((heartbeat client2/upsert-accounts "upsert-yodlee2-accounts"))
((heartbeat yodlee2/import-yodlee2 "import-yodlee"))
(mount/stop)
(log/info "Stopping yodlee import")
(Thread/sleep 15000))
(finally
(System/exit 0))))
(execute "import-yodlee" (fn []
(client2/upsert-accounts)
(yodlee2/import-yodlee2))))