diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/db.erl | 3 | ||||
-rw-r--r-- | src/frontend.erl | 16 |
2 files changed, 13 insertions, 6 deletions
@@ -7,7 +7,8 @@ %% API. -export([start_link/0, stop/0]). -export([add/4, add/2, add_entryhash/2, add_index/2, set_treesize/1, size/0]). --export([get_by_index/1, get_by_indices/3, get_by_leaf_hash/1, get_by_entry_hash/1, entry_for_leafhash/1, leafhash_for_index/1]). +-export([get_by_index/1, get_by_indices/3, get_by_leaf_hash/1]). +-export([get_by_entry_hash/1, entry_for_leafhash/1, leafhash_for_index/1]). %% gen_server callbacks. -export([init/1, handle_call/3, terminate/2, handle_cast/2, handle_info/2, code_change/3]). diff --git a/src/frontend.erl b/src/frontend.erl index 8d0eccd..4043373 100644 --- a/src/frontend.erl +++ b/src/frontend.erl @@ -12,8 +12,12 @@ sendentry(SessionID, _Env, Input) -> {error, E} -> html("sendentry: bad input:", E); {PropList} -> - LogEntry = base64:decode(proplists:get_value(<<"entry">>, PropList)), - TreeLeafHash = base64:decode(proplists:get_value(<<"treeleafhash">>, PropList)), + LogEntry = base64:decode( + proplists:get_value( + <<"entry">>, PropList)), + TreeLeafHash = base64:decode( + proplists:get_value( + <<"treeleafhash">>, PropList)), ok = db:add(TreeLeafHash, LogEntry), binary_to_list( @@ -28,8 +32,10 @@ sendlog(SessionID, _Env, Input) -> html("sendentry: bad input:", E); {PropList} -> Start = proplists:get_value(<<"start">>, PropList), - Hashes = lists:map(fun (S) -> base64:decode(S) end, proplists:get_value(<<"hashes">>, PropList)), - + Hashes = lists:map(fun (S) -> base64:decode(S) end, + proplists:get_value( + <<"hashes">>, PropList)), + Indices = lists:seq(Start, Start + length(Hashes) - 1), lists:foreach(fun ({Hash, Index}) -> ok = db:add_index(Hash, Index) @@ -48,7 +54,7 @@ sendsth(SessionID, _Env, Input) -> Treesize = proplists:get_value(<<"tree_size">>, PropList), ok = db:set_treesize(Treesize), - + ht:reset_tree([db:size() - 1]), binary_to_list( |