diff options
| author | Linus Nordberg <linus@nordu.net> | 2017-03-15 17:17:58 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordu.net> | 2017-03-15 17:17:58 +0100 |
| commit | 598d6ae6d00644c7f6e318cf5a4928ee5a8eb9ca (patch) | |
| tree | 7653518afa13e7ccc1a3925603d36d85570cb88c /src/http_auth.erl | |
| parent | 7e41c7c7630c4a96567029e6b4d7688a7df6ccee (diff) | |
| parent | 8bb572816040a8ecda50be9687cd1ddc76436f65 (diff) | |
Merge branch 'map-statusserver'
Diffstat (limited to 'src/http_auth.erl')
| -rw-r--r-- | src/http_auth.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/http_auth.erl b/src/http_auth.erl index 2cee51f..c8a8389 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). @@ -25,6 +25,9 @@ read_key_table() -> none end. +own_name() -> + {ok, {KeyName, _}} = application:get_env(plop, own_key), + KeyName. own_key() -> case application:get_env(plop, own_key, none) of |