[snmp] Use of new crypto interface correctd in manager

Added a common utility function (in the snmp_misc module)
for testing for crypto support (sed both by the manager
and agent code).

OTP-11009

1 files changed, 4 insertions, 10 deletions

diff --git a/lib/snmp/src/agent/snmp_user_based_sm_mib.erl b/lib/snmp/src/agent/snmp_user_based_sm_mib.erl
index e675cf1b83..223d3f7218 100644
--- a/lib/snmp/src/agent/snmp_user_based_sm_mib.erl
+++ b/lib/snmp/src/agent/snmp_user_based_sm_mib.erl
@@ -1219,16 +1219,10 @@ split(N, [H | T], FirstRev) when N > 0 ->
     split(N-1, T, [H | FirstRev]).
 
 
-is_crypto_supported(Algo) ->
-    %% The 'catch' handles the case when 'crypto' is
-    %% not present in the system (or not started).
-    Supported = crypto:supports(),
-    Hashs = proplists:get_value(hashs, Supported),
-    Ciphers = proplists:get_value(ciphers, Supported),
-    case catch lists:member(Algo, Hashs ++ Ciphers) of
-	true -> true;
-	_ -> false
-    end.
+-compile({inline, [{is_crypto_supported,1}]}).
+is_crypto_supported(Func) ->
+    snmp_misc:is_crypto_supported(Func). 
+
 
 inconsistentValue(V) -> throw({inconsistentValue, V}).
 inconsistentName(N)  -> throw({inconsistentName,  N}).