From fc7022d5c8471e398b2262b1680dfcbd43b59b62 Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Fri, 6 Feb 2015 19:14:54 +0100
Subject: Implement fetching of multiple entries in storage/getentry

---
 src/storage.erl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src')

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