diff options
| author | Konstantinos Kallas <konstantinos.kallas@hotmail.com> | 2017-07-17 11:39:27 +0300 |
|---|---|---|
| committer | Konstantinos Kallas <konstantinos.kallas@hotmail.com> | 2017-07-17 11:39:27 +0300 |
| commit | 8fe551cc68ac7ddce26c4f33e5db36fbd98a1590 (patch) | |
| tree | 0f312d5d59968251f25cda52d809cd3342766275 /src/ejabberd_acme.erl | |
| parent | Remove httpdir from some function arguments as we now use the built in ejabbe... (diff) | |
Add a stub for the list-certificates command
Diffstat (limited to 'src/ejabberd_acme.erl')
| -rw-r--r-- | src/ejabberd_acme.erl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/ejabberd_acme.erl b/src/ejabberd_acme.erl index 43d9eae29..25ae0ce10 100644 --- a/src/ejabberd_acme.erl +++ b/src/ejabberd_acme.erl @@ -2,8 +2,10 @@ -export([%% Ejabberdctl Commands get_certificates/2, + list_certificates/1, %% Command Options Validity is_valid_account_opt/1, + is_valid_verbose_opt/1, %% Misc generate_key/0, %% Debugging Scenarios @@ -39,6 +41,23 @@ is_valid_account_opt("old-account") -> true; is_valid_account_opt("new-account") -> true; is_valid_account_opt(_) -> false. +-spec is_valid_verbose_opt(string()) -> boolean(). +is_valid_verbose_opt("plain") -> true; +is_valid_verbose_opt("verbose") -> true; +is_valid_verbose_opt(_) -> false. + +%% +%% List Certificates +%% + +list_certificates(Verbose) -> + {ok, Certs} = read_certificates_persistent(), + case Verbose of + "plain" -> + [{Domain, certificate} || {Domain, _Cert} <- Certs]; + "verbose" -> + Certs + end. %% %% Get Certificate |