diff options
author | Linus Nordberg <linus@nordu.net> | 2014-04-25 16:24:26 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordu.net> | 2014-04-25 16:24:26 +0200 |
commit | 4315192149db790f77b226a8322b57c5ef613942 (patch) | |
tree | c88f311771b519698f4a3281e43821f6434007f4 /src/plop.erl | |
parent | e9e6b603b722cf8f4d8978dfb696b00e10096d2b (diff) |
Clean up plop a bit.
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"}, |