fix(upload certs): fix external dependency
This commit is contained in:
parent
1a61640b15
commit
f6d7739f01
|
@ -666,7 +666,7 @@ generate_filename(Key) ->
|
|||
<<"certfile">> -> "cert-";
|
||||
<<"cacertfile">> -> "cacert-"
|
||||
end,
|
||||
to_bin(filename:join([emqx:get_config([node, data_dir]), "certs/authn", Prefix ++ emqx_plugin_libs_id:gen() ++ ".pem"])).
|
||||
to_bin(filename:join([emqx:get_config([node, data_dir]), "certs/authn", Prefix ++ emqx_misc:gen() ++ ".pem"])).
|
||||
|
||||
diff_certs(NewSSLOpts, OldSSLOpts) ->
|
||||
Keys = [<<"cacertfile">>, <<"certfile">>, <<"keyfile">>],
|
||||
|
|
|
@ -45,6 +45,8 @@
|
|||
, index_of/2
|
||||
, maybe_parse_ip/1
|
||||
, ipv6_probe/1
|
||||
, gen/0
|
||||
, gen/1
|
||||
]).
|
||||
|
||||
-export([ bin2hexstr_A_F/1
|
||||
|
@ -52,6 +54,8 @@
|
|||
, hexstr2bin/1
|
||||
]).
|
||||
|
||||
-define(SHORT, 8).
|
||||
|
||||
%% @doc Parse v4 or v6 string format address to tuple.
|
||||
%% `Host' itself is returned if it's not an ip string.
|
||||
maybe_parse_ip(Host) ->
|
||||
|
@ -298,6 +302,39 @@ hexchar2int(I) when I >= $0 andalso I =< $9 -> I - $0;
|
|||
hexchar2int(I) when I >= $A andalso I =< $F -> I - $A + 10;
|
||||
hexchar2int(I) when I >= $a andalso I =< $f -> I - $a + 10.
|
||||
|
||||
-spec(gen() -> list()).
|
||||
gen() ->
|
||||
gen(?SHORT).
|
||||
|
||||
-spec(gen(integer()) -> list()).
|
||||
gen(Len) ->
|
||||
BitLen = Len * 4,
|
||||
<<R:BitLen>> = crypto:strong_rand_bytes(Len div 2),
|
||||
int_to_hex(R, Len).
|
||||
|
||||
%%------------------------------------------------------------------------------
|
||||
%% Internal Functions
|
||||
%%------------------------------------------------------------------------------
|
||||
|
||||
int_to_hex(I, N) when is_integer(I), I >= 0 ->
|
||||
int_to_hex([], I, 1, N).
|
||||
|
||||
int_to_hex(L, I, Count, N)
|
||||
when I < 16 ->
|
||||
pad([int_to_hex(I) | L], N - Count);
|
||||
int_to_hex(L, I, Count, N) ->
|
||||
int_to_hex([int_to_hex(I rem 16) | L], I div 16, Count + 1, N).
|
||||
|
||||
int_to_hex(I) when 0 =< I, I =< 9 ->
|
||||
I + $0;
|
||||
int_to_hex(I) when 10 =< I, I =< 15 ->
|
||||
(I - 10) + $a.
|
||||
|
||||
pad(L, 0) ->
|
||||
L;
|
||||
pad(L, Count) ->
|
||||
pad([$0 | L], Count - 1).
|
||||
|
||||
-ifdef(TEST).
|
||||
-include_lib("eunit/include/eunit.hrl").
|
||||
|
||||
|
|
Loading…
Reference in New Issue