Merge pull request #17 from cloudant/31759-warning-events

Use warning level for non-critical cases

1 files changed, 18 insertions, 12 deletions

diff --git a/src/custodian/src/custodian_server.erl b/src/custodian/src/custodian_server.erl
index 399d15aac..b9dabe774 100644
--- a/src/custodian/src/custodian_server.erl
+++ b/src/custodian/src/custodian_server.erl
@@ -128,20 +128,26 @@ check_shards() ->
     [send_sensu_event(Item) || Item <- custodian:summary()].
 
 send_sensu_event({_, Count} = Item) ->
-    if Count > 0 -> twig:log(crit, "~s", [describe(Item)]); true -> ok end,
-    Cmd = lists:concat(["send-sensu-event --standalone ",
-                        level(Item),
-                        " --output=\"",
-                        describe(Item),
-                        "\" ",
-                        check_name(Item)]),
+    Level = case Count of
+        0 ->
+            "--ok";
+        1 ->
+            twig:log(crit, "~s", [describe(Item)]),
+            "--critical";
+        _ ->
+            twig:log(warn, "~s", [describe(Item)]),
+            "--warning"
+    end,
+    Cmd = lists:concat([
+        "send-sensu-event --standalone ",
+        Level,
+        " --output=\"",
+        describe(Item),
+        "\" ",
+        check_name(Item)
+    ]),
     os:cmd(Cmd).
 
-level({_, 0}) ->
-    "--ok";
-level(_) ->
-    "--critical".
-
 describe({{safe, N}, Count}) ->
     lists:concat([Count, " ", shards(Count), " in cluster with only ", N,
                   " ", copies(N), " on nodes that are currently up"]);