Implement fetching of multiple entries in storage/getentry

1 files changed, 7 insertions, 3 deletions

diff --git a/src/storage.erl b/src/storage.erl
index b7acfd7..64f4ded 100644
--- a/src/storage.erl
+++ b/src/storage.erl
@@ -38,11 +38,15 @@ request(get, "ct/storage/fetchnewentries", _Input) ->
     success({[{result, <<"ok">>},
               {entries, Entries}]});
 request(get, "ct/storage/getentry", Query) ->
-    Hash = base64:decode(proplists:get_value("hash", Query)),
-    Hashes = [Hash],
+    Hashes = [base64:decode(Value) || {Key, Value} <- Query, Key == "hash"],
     Entries = lists:map(fun(LeafHash) ->
                                 {[{hash, base64:encode(LeafHash)},
-                                  {entry, base64:encode(db:entry_for_leafhash(LeafHash))}]}
+                                  {entry, base64:encode(case db:entry_for_leafhash(LeafHash) of
+                                                            noentry ->
+                                                                <<>>;
+                                                            Entry ->
+                                                                Entry
+                                                        end)}]}
                         end, Hashes),
     success({[{result, <<"ok">>},
               {entries, Entries}]}).