diff options
author | Magnus Ahltorp <map@kth.se> | 2015-02-06 19:14:54 +0100 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2015-02-27 02:29:17 +0100 |
commit | fc7022d5c8471e398b2262b1680dfcbd43b59b62 (patch) | |
tree | 38d41bd0909c8551373ea188c23214cec25ef0d9 /src/storage.erl | |
parent | b5e8dd9ab57c8a971ea169b5212aceaa8326c7b7 (diff) |
Implement fetching of multiple entries in storage/getentry
Diffstat (limited to 'src/storage.erl')
-rw-r--r-- | src/storage.erl | 10 |
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}]}). |