From 12e08090358383c5678417ae8929fca1f03ca8bc Mon Sep 17 00:00:00 2001 From: Magnus Ahltorp Date: Thu, 2 Mar 2017 00:27:59 +0100 Subject: Statusserver --- src/http_auth.erl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/http_auth.erl') diff --git a/src/http_auth.erl b/src/http_auth.erl index 2cee51f..e083a2c 100644 --- a/src/http_auth.erl +++ b/src/http_auth.erl @@ -2,7 +2,7 @@ %%% See LICENSE for licensing information. -module(http_auth). --export([verify_auth/4, create_auth/3, init_key_table/0, sign_stored/1, verify_stored/3]). +-export([verify_auth/4, create_auth/3, init_key_table/0, sign_stored/1, verify_stored/3, own_name/0]). -define(KEY_TABLE, http_auth_keys). @@ -26,6 +26,10 @@ read_key_table() -> end. +own_name() -> + {_Key, KeyName} = own_key(), + KeyName. + own_key() -> case application:get_env(plop, own_key, none) of {KeyName, _KeyFile} -> -- cgit v1.1 From 27b809c9525a876ecde0a5346e0264643197d934 Mon Sep 17 00:00:00 2001 From: Magnus Ahltorp Date: Wed, 8 Mar 2017 23:20:36 +0100 Subject: Added heartbeat service. Add source. Send better messages. --- src/http_auth.erl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/http_auth.erl') diff --git a/src/http_auth.erl b/src/http_auth.erl index e083a2c..c8a8389 100644 --- a/src/http_auth.erl +++ b/src/http_auth.erl @@ -25,9 +25,8 @@ read_key_table() -> none end. - own_name() -> - {_Key, KeyName} = own_key(), + {ok, {KeyName, _}} = application:get_env(plop, own_key), KeyName. own_key() -> -- cgit v1.1