diff options
Diffstat (limited to 'src/plop.erl')
-rw-r--r-- | src/plop.erl | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/src/plop.erl b/src/plop.erl index 8af6418..3cc3205 100644 --- a/src/plop.erl +++ b/src/plop.erl @@ -11,7 +11,7 @@ -include_lib("public_key/include/public_key.hrl"). -include_lib("eunit/include/eunit.hrl"). --export([start/2, loop/1, dummy_add/1]). +-export([start/2, loop/1]). -record(plop, {pubkey :: public_key:rsa_public_key(), privkey :: public_key:rsa_private_key(), @@ -62,10 +62,9 @@ handle_req(From, case Arg of {add, PlopData = #plop_data{entry = Entry}} when is_record(Entry, plop_entry) -> %% fixme: add Entry to db, - H = ht:append(Tree, serialise(Entry)), + ht:append(Tree, serialise(Entry)), SPT = spt(LogID, Privkey, PlopData), - %%io:format("adding ~p to ~p -> H: ~p, SPT: ~p~n", - [Entry, Tree, H, SPT]), + %% io:format("adding ~p to ~p -> H: ~p, SPT: ~p~n", [Entry, Tree, H, SPT]), From ! {ok, SPT}; sth -> % Signed tree head. From ! {ok, sth(Tree)}; @@ -153,11 +152,6 @@ public_key(#'RSAPrivateKey'{modulus = Mod, publicExponent = Exp}) -> #'RSAPublicKey'{modulus = Mod, publicExponent = Exp}. %%%%%%%%%%%%%%%%%%%% -%% Playing around -dummy_add(String) -> - String. - -%%%%%%%%%%%%%%%%%%%% %% Tests. serialise_test_() -> Entry = #plop_entry{type = ?PLOP_ENTRY_TYPE_X509, entry = "foo"}, |