24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-06-14 22:00:16 +02:00

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

This commit is contained in:
Badlop 2010-05-10 15:39:20 +02:00
parent e249a21f83
commit 2afce7822f

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