25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-24 17:29:28 +01:00

Use a standard method to get a random seed (EJAB-1229)

This commit is contained in:
Badlop 2010-05-10 15:38:38 +02:00
parent 39119192a1
commit 6ae8b9c4d6

View File

@ -431,8 +431,7 @@ init([]) ->
end; end;
init({Hosts, Port, Rootdn, Passwd, Opts}) -> init({Hosts, Port, Rootdn, Passwd, Opts}) ->
catch ssl:start(), catch ssl:start(),
{X1,X2,X3} = erlang:now(), ssl:seed(randoms:get_string()),
ssl:seed(integer_to_list(X1) ++ integer_to_list(X2) ++ integer_to_list(X3)),
Encrypt = case proplists:get_value(encrypt, Opts) of Encrypt = case proplists:get_value(encrypt, Opts) of
tls -> tls; tls -> tls;
_ -> none _ -> none