Log (info) when adding and rejecting a certificate chain.validate-certchain

Writing to stdout for now, until we've decided on logging framework.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/v1.erl b/src/v1.erl
index 46b5235..8c748e5 100644
--- a/src/v1.erl
+++ b/src/v1.erl
@@ -25,8 +25,12 @@
                         Roots = catlfish:known_roots(),
                         case x509:normalise_chain(Roots, [LeafCert|CertChain]) of
                             {ok, [Leaf | Chain]} ->
+				io:format("[info] adding ~p~n",
+                                          [x509:cert_string(LeafCert)]),
                                 catlfish:add_chain(Leaf, Chain);
                             {Err, Msg} ->
+				io:format("[info] rejecting ~p: ~p~n",
+                                          [x509:cert_string(LeafCert), Err]),
                                 html("add-chain: ", [Msg, Err])
                         end;
                     Invalid ->