fixed a bug with hostname
This commit is contained in:
parent
86593f5b39
commit
f358b58eb5
2 changed files with 7 additions and 10 deletions
|
@ -1,4 +1,4 @@
|
|||
(defproject bigbrother "0.1.0-SNAPSHOT"
|
||||
(defproject bigbrother "0.1.1-SNAPSHOT"
|
||||
:description "Periodically send metrics"
|
||||
:url "http://github.com/yogsototh/bigbrother"
|
||||
:license {:name "MIT"
|
||||
|
|
|
@ -67,18 +67,15 @@
|
|||
(when (number? v)
|
||||
(let [lvl-fn (get @level-by-key k)
|
||||
level (if lvl-fn (lvl-fn v) "ok")]
|
||||
(into
|
||||
@riemann-conf
|
||||
{:service (str @riemann-service " " (name k))
|
||||
:state level
|
||||
:metric v})))
|
||||
:metric v}))))
|
||||
|
||||
(defn send-to-riemann [m]
|
||||
(let [result-map (into @default-map m)
|
||||
metric-data (into
|
||||
{:service @riemann-service
|
||||
:state "ok"}
|
||||
@riemann-conf)
|
||||
events (remove nil? (map to-riemann-event result-map))
|
||||
]
|
||||
events (remove nil? (map to-riemann-event result-map))]
|
||||
(when @riemann-conn
|
||||
(r/send-events @riemann-conn events))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue