From 8fe551cc68ac7ddce26c4f33e5db36fbd98a1590 Mon Sep 17 00:00:00 2001
From: Konstantinos Kallas <konstantinos.kallas@hotmail.com>
Date: Mon, 17 Jul 2017 11:39:27 +0300
Subject: Add a stub for the list-certificates command

---
 src/ejabberd_acme.erl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'src/ejabberd_acme.erl')

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
-- 
cgit v1.2.3