storage/fetchnewentries speedp

storage/fetchnewentries now fetches only hashes
Implmented storage/getentry to actually fetch the entry

1 files changed, 9 insertions, 1 deletions

diff --git a/src/storage.erl b/src/storage.erl
index 6a49a22..b7acfd7 100644
--- a/src/storage.erl
+++ b/src/storage.erl
@@ -33,9 +33,17 @@ request(get, "ct/storage/fetchnewentries", _Input) ->
     NewHashes = storagedb:fetchnewhashes(0),
     % XXX send only hashes, implement getentry
     Entries = lists:map(fun(LeafHash) ->
+                                base64:encode(LeafHash)
+                        end, NewHashes),
+    success({[{result, <<"ok">>},
+              {entries, Entries}]});
+request(get, "ct/storage/getentry", Query) ->
+    Hash = base64:decode(proplists:get_value("hash", Query)),
+    Hashes = [Hash],
+    Entries = lists:map(fun(LeafHash) ->
                                 {[{hash, base64:encode(LeafHash)},
                                   {entry, base64:encode(db:entry_for_leafhash(LeafHash))}]}
-                        end, NewHashes),
+                        end, Hashes),
     success({[{result, <<"ok">>},
               {entries, Entries}]}).