From f0b40ee24cb2e95f3ce1a7d06473459f3de2b7d5 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordberg.se>
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/x509.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/x509.erl')

diff --git a/src/x509.erl b/src/x509.erl
index 8b1211d..9b6b386 100644
--- a/src/x509.erl
+++ b/src/x509.erl
@@ -2,7 +2,7 @@
 %%% See LICENSE for licensing information.
 
 -module(x509).
--export([normalise_chain/2]).
+-export([normalise_chain/2, cert_string/1]).
 
 -include_lib("public_key/include/public_key.hrl").
 
@@ -84,6 +84,10 @@ public_key(#'OTPCertificate'{
                                               subjectPublicKey = Key}}}) ->
     Key.
 
+cert_string(Der) ->
+    lists:flatten([io_lib:format("~2.16.0B", [X]) ||
+		      X <- binary_to_list(crypto:hash(sha, Der))]).
+
 %%%%%%%%%%%%%%%%%%%%
 %% Precertificates according to draft-ietf-trans-rfc6962-bis-04.
 
-- 
cgit v1.1