Chapril/xmpp.chapril.org-ejabberd
24
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-06-16 22:05:29 +02:00
Code Releases Activity

Don't call pkix_is_self_signed/1 too frequently

Browse Source
This commit is contained in:
Evgeniy Khramtsov 2017-12-07 17:24:34 +03:00
parent 97c9058246
commit f1ac793d56
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ejabberd_pkix.erl
View File

@ -767,22 +767,22 @@ get_cert_paths(Certs, G) ->
end, Certs). end, Certs).
add_edges(G, [Cert1|T], L) -> add_edges(G, [Cert1|T], L) ->
lists:foreach( case public_key:pkix_is_self_signed(Cert1) of
fun(Cert2) when Cert1 /= Cert2 -> true ->
case public_key:pkix_is_self_signed(Cert1) of ok;
true -> false ->
ok; lists:foreach(
false -> fun(Cert2) when Cert1 /= Cert2 ->
case public_key:pkix_is_issuer(Cert1, Cert2) of case public_key:pkix_is_issuer(Cert1, Cert2) of
true -> true ->
digraph:add_edge(G, Cert1, Cert2); digraph:add_edge(G, Cert1, Cert2);
false -> false ->
ok ok
end end;
end; (_) ->
(_) -> ok
ok end, L)
end, L), end,
add_edges(G, T, L); add_edges(G, T, L);
add_edges(_, [], _) -> add_edges(_, [], _) ->
ok. ok.