]> granicus.if.org Git - ejabberd/commitdiff
Fix more places where random:seed is used
authorPaweł Chmielowski <pchmielowski@process-one.net>
Mon, 7 Dec 2015 15:48:29 +0000 (16:48 +0100)
committerPaweł Chmielowski <pchmielowski@process-one.net>
Mon, 7 Dec 2015 15:48:29 +0000 (16:48 +0100)
src/ejabberd_s2s_out.erl
src/extauth.erl

index 6bf928282c5f88951300264e93c5848e3def88e6..a5f7280555df2226f3a12fa2af64d138d165f356 100644 (file)
@@ -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
index 9b84741dcac73119f5a36cf470433b900b6c4a17..1d312624653069d0cbc6b9f5cf8cb03ec7da39df 100644 (file)
@@ -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) ->