From f0b40ee24cb2e95f3ce1a7d06473459f3de2b7d5 Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Thu, 23 Oct 2014 14:42:42 +0200 Subject: Log (info) when adding and rejecting a certificate chain. Writing to stdout for now, until we've decided on logging framework. --- src/v1.erl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/v1.erl') 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 -> -- cgit v1.1