Skip to content

Instantly share code, notes, and snippets.

@sarguru
Created December 29, 2013 20:44
Show Gist options
  • Save sarguru/8174635 to your computer and use it in GitHub Desktop.
Save sarguru/8174635 to your computer and use it in GitHub Desktop.
tag doesnt work
; (5556)
(let [host "0.0.0.0"]
(tcp-server :host host)
(udp-server :host host)
(ws-server :host host)
(graphite-server :host host))
(streams
( where (service =~ "%servers%")
( tag "graphite" )
)
(tagged-all "graphite" prn )
(let [client (tcp-client :host "192.168.19.1")]
(by [:host :service]
(forward client))))
@sarguru
Copy link
Author

sarguru commented Dec 29, 2013

(defn graphite-path-sarguru [event]
(let [service (:service event)]
     service )
 )


(def graph (graphite {:host "10.128.35.105" :path "graphite-path-sarguru"}))

@sarguru
Copy link
Author

sarguru commented Dec 29, 2013

(defn graphite-path-sarguru [event]
(let [service (:service event)]
     service )
 )


(def graph (graphite {:host "10.128.35.105" :path graphite-path-sarguru}))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment