notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding extra context

Browse Source
This commit is contained in:
Bryce Covert
2022-01-05 06:29:39 -08:00
parent d9bace6967
commit c1658e32c0
1 changed files with 46 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
src/clj/auto_ap/background/metrics.clj
View File

@@ -1,11 +1,54 @@
(ns auto-ap.background.metrics
(:require [com.unbounce.dogstatsd.core :as statsd]
[mount.core :as mount]
[config.core :refer [env]]))
[clj-http.client :as http]
[clojure.tools.logging :as log]
[config.core :refer [env]]
[unilog.context :as lc]))
(defn get-container-data []
(try
(let [result
(some-> env
(:ecs-container-metadata-uri-v4)
(http/get {:as :json})
:body)]
result)
(catch Exception e
(log/warn "cannot find container tags" e)
{})))
(mount/defstate container-data
:start (get-container-data)
:stop nil)
(defn get-container-tags []
[(str "container:" (:DockerId container-data))
(str "ip:" (-> container-data :Networks first :IPv4Addresses first))])
(mount/defstate container-tags
:start (get-container-tags)
:stop nil)
(defn set-logging-context []
(when (seq container-data)
(lc/push-context "container" (:DockerId container-data))
(lc/push-context "ip" (-> container-data :Networks first :IPv4Addresses first))))
(defn stop-logging-context []
(when (seq container-data)
(lc/pull-context "container")
(lc/pull-context "ip")))
(mount/defstate logging-context
:start (set-logging-context)
:stop (stop-logging-context))
(mount/defstate metrics-setup
:start (statsd/setup! :host "127.0.0.1" :port 8125 :prefix "integreat.app" :tags #{(str "env:" (:dd-env env))
(str "service:" (:dd-service env))})
:start (statsd/setup! :host "127.0.0.1" :port 8125 :prefix "integreat.app" :tags (into #{(str "env:" (:dd-env env))
(str "service:" (:dd-service env))}
(container-tags)))
:stop (statsd/shutdown!))