Check Ratio stream

check_ratio.clj

(defn check_ratio [srv1 srv2 newsrv warning critical & children]
  (project [(service srv1)
            (service srv2)]
    (smap folds/quotient
      (fn [event] (let [percenta (* (float (:metric event)) 100)
                        new-event (assoc event :metric percenta
                                               :service (str newsrv)
                                               :type_instance nil
                                               :state (condp < percenta
                                                               critical "critical"
                                                               warning  "warning"
                                                                        "ok"))]
          (call-rescue new-event children))))))