From d34e60f273b3fef49c80ebf866ce781333f90d79 Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Wed, 28 Jan 2015 12:15:41 +0100
Subject: storage/fetchnewentries speedp storage/fetchnewentries now fetches
 only hashes Implmented storage/getentry to actually fetch the entry

---
 src/storage.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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}]}).
 
-- 
cgit v1.1