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
1 changed files with 1 additions and 2 deletions

View File

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