gistfile1.txt

; monitoring uptime is based on whether or not
; we've received a state of up for a given property.
(defn monitor-uptime-with-pd [service-name]
  (streams
    (changed-state
      (where (and (service service-name)
                  (or (state "up")
                      (state "ok")))
             prn
             (:resolve pd))
      (where (and (service service-name)
                  (not (or (state "up")
                           (state "ok"))))
              prn
              (:trigger pd)))))

  (monitor-uptime-with-pd #"frontend\.http\.\d{4}\.status")