From 31d43468068bfff108d29b28bfd8027bfe181dce Mon Sep 17 00:00:00 2001
From: martinsumner <martin.sumner@adaptip.co.uk>
Date: Mon, 2 Jan 2017 18:54:19 +0000
Subject: [PATCH] Log improvements

Log on bad CRC, and also not seeing SST timing logs, so log these more
frequently
---
 src/leveled_log.erl | 4 +++-
 src/leveled_sst.erl | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/leveled_log.erl b/src/leveled_log.erl
index 231dbce..d57083c 100644
--- a/src/leveled_log.erl
+++ b/src/leveled_log.erl
@@ -17,7 +17,7 @@
 -define(PUT_LOGPOINT, 20000).
 -define(HEAD_LOGPOINT, 160000).
 -define(GET_LOGPOINT, 160000).
--define(SST_LOGPOINT, 200000).
+-define(SST_LOGPOINT, 20000).
 -define(LOG_LEVEL, [info, warn, error, critical]).
 -define(SAMPLE_RATE, 16).
 
@@ -248,6 +248,8 @@
         {info, "Exit called and now clearing ~s"}},
     {"SST08",
         {info, "Completed creation of ~s at level ~w with max sqn ~w"}},
+    {"SST09",
+        {warn, "Read request exposes slot with bad CRC"}},
     
     {"CDB01",
         {info, "Opening file for writing with filename ~s"}},
diff --git a/src/leveled_sst.erl b/src/leveled_sst.erl
index f8b9466..f7903f7 100644
--- a/src/leveled_sst.erl
+++ b/src/leveled_sst.erl
@@ -1060,6 +1060,7 @@ crc_check_slot(FullBin) ->
             Lengths = {B1P, B1L, B2L, B3L, B4L},
             {Lengths, Rest};
         _ ->
+            leveled_log:log("SST09", []),
             crc_wonky
     end.