Fix more places where random:seed is used

diff --git a/src/ejabberd_s2s_out.erl b/src/ejabberd_s2s_out.erl
index 6bf928282c5f88951300264e93c5848e3def88e6..a5f7280555df2226f3a12fa2af64d138d165f356 100644 (file)
--- a/src/ejabberd_s2s_out.erl
+++ b/src/ejabberd_s2s_out.erl
@@ -1097,7 +1097,7 @@ get_addr_port(Server) ->
          ?DEBUG("srv lookup of '~s': ~p~n",
                 [Server, HEnt#hostent.h_addr_list]),
          AddrList = HEnt#hostent.h_addr_list,
-         random:seed(p1_time_compat:monotonic_time()),
+         random:seed(p1_time_compat:timestamp()),
          case catch lists:map(fun ({Priority, Weight, Port,
                                     Host}) ->
                                       N = case Weight of

diff --git a/src/extauth.erl b/src/extauth.erl
index 9b84741dcac73119f5a36cf470433b900b6c4a17..1d312624653069d0cbc6b9f5cf8cb03ec7da39df 100644 (file)
--- a/src/extauth.erl
+++ b/src/extauth.erl
@@ -102,7 +102,7 @@ call_port(Server, Msg) ->
     receive {eauth, Result} -> Result end.
 
 random_instance(MaxNum) ->
-    random:seed(p1_time_compat:monotonic_time()),
+    random:seed(p1_time_compat:timestamp()),
     random:uniform(MaxNum) - 1.
 
 get_instances(Server) ->