From 94d34fe4e9db52c0b914e12aee0d59625077c1ca Mon Sep 17 00:00:00 2001
From: David Kerr <david@kerr.net>
Date: Sat, 8 Aug 2020 21:14:15 -0400
Subject: [PATCH] Redact login and password when printing out internal hash
 values

---
 ddclient.in | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ddclient.in b/ddclient.in
index b6db09c..df17d6e 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -1649,7 +1649,12 @@ sub _print_hash {
         $value = "<undefined>";
     } elsif (ref $ptr eq 'HASH') {
         foreach my $key (sort keys %$ptr) {
-            _print_hash("${string}\{$key\}", $ptr->{$key});
+            if (($key eq "login") || ($key eq "password")) {
+               $value = "<redacted>";
+            } else {
+                $value = $ptr->{$key};
+            }
+            _print_hash("${string}\{$key\}", $value);
         }
         return;
     }