diff options
| author | Magnus Ahltorp <map@kth.se> | 2017-03-02 00:27:59 +0100 |
|---|---|---|
| committer | Magnus Ahltorp <map@kth.se> | 2017-03-08 23:23:13 +0100 |
| commit | 12e08090358383c5678417ae8929fca1f03ca8bc (patch) | |
| tree | 160e002958b6523d8a0e9f71bccad5a77c018ce2 /src/http_auth.erl | |
| parent | 04f5784a9af4cf49dd8a08ff4c64035272cfd370 (diff) | |
Statusserver
Diffstat (limited to 'src/http_auth.erl')
| -rw-r--r-- | src/http_auth.erl | 6 |
1 files changed, 5 insertions, 1 deletions
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} -> |