From d99ab04baa8e2e72ba18c9fd2a32dcef5b9385dd Mon Sep 17 00:00:00 2001
From: Ulf Wiger <ulf@feuerlabs.com>
Date: Fri, 8 Jan 2016 06:24:45 -0800
Subject: add debug support for creds_by_conn

---
 components/authorize/src/authorize_keys.erl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'components')

diff --git a/components/authorize/src/authorize_keys.erl b/components/authorize/src/authorize_keys.erl
index 86ab2c6..e17675b 100644
--- a/components/authorize/src/authorize_keys.erl
+++ b/components/authorize/src/authorize_keys.erl
@@ -172,6 +172,7 @@ init([]) ->
     Creds = scan_creds(CredDir, ProvisioningKey, DevCert),
     ?debug("scan_creds found ~p credentials~n", [length(Creds)]),
     [ets:insert(?CREDS, {{local, C#cred.id}, C}) || C <- Creds],
+    ?debug("CREDS = ~p", [ets:tab2list(?CREDS)]),
     {ok, #st{provisioning_key = ProvisioningKey,
 	     dev_cert = DevCert,
 	     cred_dir = CredDir}}.
@@ -244,6 +245,7 @@ code_change(_FromVsn, S, _Extra) ->
 creds_by_conn(Conn) ->
     ?debug("creds_by_conn(~p)~n", [Conn]),
     UTC = rvi_common:utc_timestamp(),
+    ?debug("all creds = ~p", [ets:tab2list(?CREDS)]),
     Creds = ets:select(?CREDS, [{ {{Conn,'_'}, #cred{jwt = '$1',
 						     validity = '$2',
 						     _='_'}},
-- 
cgit v1.2.1