Merge branch 'erland/OTP18/snmp/OTP-12452'

* erland/OTP18/snmp/OTP-12452:
  snmp: Remove deprecated warning for erlang:now in snmp_verbority
  snmp: Change to random use crypto. Remove use of erlang:now

1 files changed, 3 insertions, 18 deletions

diff --git a/lib/snmp/src/agent/snmpa_net_if.erl b/lib/snmp/src/agent/snmpa_net_if.erl
index 840d56d563..c05a85c07a 100644
--- a/lib/snmp/src/agent/snmpa_net_if.erl
+++ b/lib/snmp/src/agent/snmpa_net_if.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %% 
-%% Copyright Ericsson AB 2004-2014. All Rights Reserved.
+%% Copyright Ericsson AB 2004-2015. All Rights Reserved.
 %% 
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
@@ -674,7 +674,7 @@ handle_recv(
   #state{mpd_state  = MpdState, note_store = NS, log = Log} = S,
   #transport{socket = Socket} = Transport,
   From, Packet) ->
-    put(n1, erlang:now()),
+    put(n1, erlang:monotonic_time(micro_seconds)),
     LogF =
 	fun(Type, Data) ->
 		log(Log, Type, Data, From)
@@ -1379,15 +1379,7 @@ do_close_log(_) ->
 %%% DEBUG FUNCTIONS
 %%%-----------------------------------------------------------------
 time_in_agent() ->
-    subtr(erlang:now(), get(n1)).
-
-subtr({X1,Y1,Z1}, {X1,Y1,Z2}) ->
-    Z1 - Z2;
-subtr({X1,Y1,Z1}, {X1,Y2,Z2}) ->
-    ((Y1-Y2) * 1000000) + (Z1 - Z2);
-subtr({X1,Y1,Z1}, {X2,Y2,Z2}) ->
-    ((X1 - X2) * 1000000000000) + ((Y1 - Y2) * 1000000) + (Z1 - Z2).
-
+    erlang:monotonic_time(micro_seconds) - get(n1).
 
 %% ----------------------------------------------------------------
 
@@ -1637,10 +1629,3 @@ get_port_info(Id) ->
 
 
 %% ----------------------------------------------------------------
-
-% i(F) ->
-%     i(F, []).
-
-% i(F, A) ->
-%     io:format("~p: " ++ F ++ "~n", [?MODULE|A]).
-