update http-redis queries

wuhx · May 3, 2012 · ed3cd2e · ed3cd2e
1 parent d3c1cc9
commit ed3cd2e
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/src/pulse/def.clj b/src/pulse/def.clj
@@ -1408,9 +1408,13 @@
      (fn [evt] (and (core? evt) (k? evt :logplex) (finish? evt)))
      :elapsed))
 
-(defstat api-http-redis-exceptions-per-minute
+(defstat api-http-redis-retries-per-minute
   (per-minute
-    (fn [evt] (and (core? evt) (k? evt :redis_helper) (k? evt :exception)))))
+    (fn [evt] (and (core? evt) (k? evt :redis_helper) (k? evt :retry)))))
+
+(defstat api-http-redis-timeouts-per-minute
+  (per-minute
+    (fn [evt] (and (core? evt) (k? evt :redis_helper) (kv? evt :at "error")))))
 
 (defstat api-psmgr-api-requests-per-minute
   (per-minute
@@ -1716,7 +1720,8 @@
    api-logplex-api-errors-per-minute
    api-logplex-api-unhandled-exceptions-per-minute
    api-logplex-api-time
-   api-http-redis-exceptions-per-minute
+   api-http-redis-retries-per-minute
+   api-http-redis-timeouts-per-minute
    api-psmgr-api-requests-per-minute
    api-psmgr-api-errors-per-minute
    api-psmgr-api-unhandled-exceptions-per-minute

diff --git a/src/pulse/web.clj b/src/pulse/web.clj
@@ -325,7 +325,8 @@
     ["api psmgr time"      "api-psmgr-api-time"]
     ["api worker excp/min" "api-unhandled-exceptions-per-minute"]
     ["api event/sec"       "api-events-per-second"]]
-   [["api http redis excp/min" "api-http-redis-exceptions-per-minute"]]])
+   [["http redis retries/min" "api-http-redis-retries-per-minute"]
+    ["http redis timeouts/min" "api-http-redis-timeouts-per-minute"]]])
 
 (def graphs-internal
   [[["pulse event/sec" "pulse-events-per-second"]]])