summaryrefslogtreecommitdiff
path: root/src/ejabberd_admin.erl
diff options
context:
space:
mode:
authorKonstantinos Kallas <konstantinos.kallas@hotmail.com>2017-07-27 18:25:44 +0300
committerKonstantinos Kallas <konstantinos.kallas@hotmail.com>2017-07-27 18:25:44 +0300
commitcc6f4b90fb6cfd317cf65113fc15386df7606364 (patch)
treee063001397ccd31e8fa4b1248a26383053e55e8a /src/ejabberd_admin.erl
parentSync fork with upstream (diff)
Support certificate revocation
Diffstat (limited to 'src/ejabberd_admin.erl')
-rw-r--r--src/ejabberd_admin.erl9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/ejabberd_admin.erl b/src/ejabberd_admin.erl
index af0cb978..c68a0831 100644
--- a/src/ejabberd_admin.erl
+++ b/src/ejabberd_admin.erl
@@ -47,6 +47,7 @@
%% Acme
get_certificate/1,
list_certificates/1,
+ revoke_certificate/1,
%% Purge DB
delete_expired_messages/0, delete_old_messages/1,
%% Mnesia
@@ -258,6 +259,12 @@ get_commands_spec() ->
args_desc = ["Whether to print the whole certificate or just some metadata. Possible values: plain | verbose"],
args = [{option, string}],
result = {certificates, {list,{certificate, string}}}},
+ #ejabberd_commands{name = revoke_certificate, tags = [acme],
+ desc = "Revokes the selected certificate",
+ module = ?MODULE, function = revoke_certificate,
+ args_desc = ["The domain of the certificate in question"],
+ args = [{domain, string}],
+ result = {res, restuple}},
#ejabberd_commands{name = import_piefxis, tags = [mnesia],
desc = "Import users data from a PIEFXIS file (XEP-0227)",
@@ -580,6 +587,8 @@ list_certificates(Verbose) ->
{invalid_option, String}
end.
+revoke_certificate(Domain) ->
+ ejabberd_acme:revoke_certificate("http://localhost:4000", Domain).
%%%
%%% Purge DB