File 1211-ssh-Extend-ssh_options-with-cleaning-funct... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1211-ssh-Extend-ssh_options-with-cleaning-function.patch of Package erlang (Revision 459ea22809e09a8cdcc656806aa931bc)

Currently displaying revision 459ea22809e09a8cdcc656806aa931bc , Show latest

From 28d2e93a93a347387de43dccfdbd695f3db793a4 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Tue, 1 Jun 2021 13:25:21 +0200
Subject: [PATCH 1/5] ssh: Extend ssh_options with cleaning function

---
 lib/ssh/src/ssh_options.erl | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/lib/ssh/src/ssh_options.erl b/lib/ssh/src/ssh_options.erl
index b5b0a9d2d8..f06ff36aae 100644
--- a/lib/ssh/src/ssh_options.erl
+++ b/lib/ssh/src/ssh_options.erl
@@ -32,7 +32,7 @@
          handle_options/2,
          keep_user_options/2,
          keep_set_options/2,
-
+         no_sensitive/2,
          initial_default_algorithms/2,
          check_preferred_algorithms/1
         ]).
@@ -328,6 +328,28 @@ save(Opt, _Defs, OptMap) when is_map(OptMap) ->
     OptMap#{socket_options := [Opt | maps:get(socket_options,OptMap)]}.
 
 
+%%%================================================================
+no_sensitive(rm, #{id_string := _,
+                   tstflg := _}) -> '*** removed ***';
+no_sensitive(filter, Opts = #{id_string := _,
+                              tstflg := _}) -> 
+    Sensitive = [password, user_passwords,
+                 dsa_pass_phrase, rsa_pass_phrase, ecdsa_pass_phrase,
+                 ed25519_pass_phrase, ed448_pass_phrase],
+    maps:fold(
+      fun(K, _V, Acc) ->
+              case lists:member(K, Sensitive) of
+                  true -> Acc#{K := '***'};
+                  false -> Acc
+              end
+      end, Opts, Opts);
+no_sensitive(Type, L) when is_list(L) ->
+    [no_sensitive(Type,E) || E <- L];
+no_sensitive(Type, T) when is_tuple(T) ->
+    list_to_tuple( no_sensitive(Type, tuple_to_list(T)) );
+no_sensitive(_, X) ->
+    X.
+
 %%%================================================================
 %%%
 -spec keep_user_options(client|server, #{}) -> #{}.
-- 
2.26.2

Places

File 1211-ssh-Extend-ssh_options-with-cleaning-function.patch of Package erlang (Revision 459ea22809e09a8cdcc656806aa931bc)

Places