From 04750f39bbfb6dbbac704938263a0542c3de5403 Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Sun, 4 May 2014 21:53:03 +0200 Subject: Limit the debug printing some. --- src/plop.erl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/plop.erl b/src/plop.erl index 98e62af..1a80dea 100644 --- a/src/plop.erl +++ b/src/plop.erl @@ -125,8 +125,9 @@ do_add(TimestampedEntry = #timestamped_entry{entry = PlopEntry}, DB_hash = crypto:hash(sha256, serialise(PlopEntry)), Record = db:find(DB_hash), case Record of - #plop{index = I, mtl = M = #mtl{entry = E}, spt = SPT} -> - io:format("Found entry: index=~p~nMTL: ~p~nSPT: ~p~n", [I, M, SPT]), + #plop{index = I, mtl = #mtl{entry = E}, spt = SPT} -> + io:format("Found entry: index=~p, data=~p~n", + [I, E#timestamped_entry.entry#plop_entry.data]), Record = Record#plop{ % DB consistency checking. hash = DB_hash, mtl = #mtl{entry = @@ -138,8 +139,10 @@ do_add(TimestampedEntry = #timestamped_entry{entry = PlopEntry}, _ -> NewSPT = spt(LogID, Privkey, TimestampedEntry), MTL = #mtl{entry = TimestampedEntry}, - io:format("Creating new entry: index=~p~ndb hash: ~p~nMTL: ~p~nSPT: ~p~n", - [ht:size(Tree) + 1, DB_hash, MTL, NewSPT]), + io:format("Creating new entry: index=~p,data=~p~n", + [ht:size(Tree) + 1, PlopEntry#plop_entry.data]), + %% io:format("Creating new entry: index=~p~ndb hash: ~p~nMTL: ~p~nSPT: ~p~n", + %% [ht:size(Tree) + 1, DB_hash, MTL, NewSPT]), DB_data = #plop{index = ht:size(Tree) + 1, hash = DB_hash, mtl = MTL, -- cgit v1.1