File 1204-ssh-New-test-help-module-ssh_log_h.erl.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1204-ssh-New-test-help-module-ssh_log_h.erl.patch of Package erlang (Revision 0c21b05666799b6f7e661ea62fb04f80)

Currently displaying revision 0c21b05666799b6f7e661ea62fb04f80 , Show latest

From 1074414c88bceadb3f13d43431e2a15d748a6bbc Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Thu, 3 Jun 2021 10:12:12 +0200
Subject: [PATCH 4/5] ssh: New test help module ssh_log_h.erl

for checking logger/error messages
---
 lib/ssh/test/Makefile      |  1 +
 lib/ssh/test/ssh_log_h.erl | 74 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 75 insertions(+)
 create mode 100644 lib/ssh/test/ssh_log_h.erl

diff --git a/lib/ssh/test/Makefile b/lib/ssh/test/Makefile
index a3db492f0f..65809f71ad 100644
--- a/lib/ssh/test/Makefile
+++ b/lib/ssh/test/Makefile
@@ -49,6 +49,7 @@ MODULES= \
 	ssh_to_openssh_SUITE \
 	ssh_upgrade_SUITE \
 	ssh_test_lib \
+	ssh_log_h \
 	ssh_key_cb \
 	ssh_key_cb_options \
 	ssh_key_cb_engine_keys \
diff --git a/lib/ssh/test/ssh_log_h.erl b/lib/ssh/test/ssh_log_h.erl
new file mode 100644
index 0000000000..b602779807
--- /dev/null
+++ b/lib/ssh/test/ssh_log_h.erl
@@ -0,0 +1,74 @@
+-module(ssh_log_h).
+
+-export([log/2
+        ]).
+
+-export([add_fun/3,
+         sensitive_in_opt/1,
+         chk_sensitive/2]).
+
+
+log(LogEvent, #{?MODULE := #{function := F,
+                             data := D}}) ->
+    F(LogEvent, D);
+
+log(LogEvent, Config) ->
+    io:format("LogEvent = ~p~nConfig = ~p~n", [LogEvent, Config]).
+
+%%%----------------------------------------------------------------
+add_fun(Id, Fun, Data) ->
+    logger:add_handler(Id, ?MODULE, #{?MODULE => #{function => Fun,
+                                                   data => Data}}).
+                               
+%%%----------------------------------------------------------------
+chk_sensitive(LogEvent, _) ->
+    case sensitive_in_opt(LogEvent) of
+        false ->
+            io:format("no sensitive keys are present in the log event!~n", []);
+        true ->
+            io:format("**** Sensitive keys(s) is(are) present in the log event!!~n", [])
+    end.
+
+%%%----------------------------------------------------------------
+sensitive_in_opt(LogEvent) ->
+    case locate_opts(LogEvent) of
+        false ->
+            false;
+
+        {ok, O} ->
+            Sensitive = [password, user_passwords,
+                         dsa_pass_phrase, rsa_pass_phrase, ecdsa_pass_phrase,
+                         ed25519_pass_phrase, ed448_pass_phrase],
+            lists:any(fun(K) -> lists:member(K, Sensitive) end,
+                      maps:keys(O))
+    end.
+
+
+
+%%%----------------------------------------------------------------
+locate_opts(#{id_string := _,
+              tstflg := _} = Opts) ->
+    {ok, Opts};
+
+locate_opts([H|T]) ->
+    case locate_opts(H) of
+        {ok, Opts} ->
+            {ok, Opts};
+        false ->
+            locate_opts(T)
+    end;
+
+locate_opts(T) when is_tuple(T) ->
+    locate_opts( tuple_to_list(T) );
+
+locate_opts(#{} = M) ->
+    locate_opts( maps:to_list(M) );
+
+locate_opts(_) ->
+    false.
+
+
+%%%----------------------------------------------------------------
+
+    
+
-- 
2.26.2

Places

File 1204-ssh-New-test-help-module-ssh_log_h.erl.patch of Package erlang (Revision 0c21b05666799b6f7e661ea62fb04f80)

Places