From 32d67623ad5939e285afe19b19827e6cc686af9c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 14 Oct 2019 19:15:00 +0000
Subject: [PATCH] HttpUtils.pm: add HttpUtils_dumpDnsCache (Forum #84372)

git-svn-id: https://svn.fhem.de/fhem/trunk@20363 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/HttpUtils.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index 9d081876b..42b3bdea1 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -139,6 +139,21 @@ ip2str($)
 
 # https://mislove.org/teaching/cs4700/spring11/handouts/project1-primer.pdf
 my %HU_dnsCache;
+
+sub
+HttpUtils_dumpDnsCache()
+{
+  my @ret;
+  my $max = 0;
+  map { my $l=length($_); $max=$l if($l>$max) } keys %HU_dnsCache;
+  for my $hn (sort keys %HU_dnsCache) {
+    push @ret, sprintf("%*s   TS: %s   TTL: %5s   ADDR: %s", -$max, $hn, 
+      FmtDateTime($HU_dnsCache{$hn}{TS}), $HU_dnsCache{$hn}{TTL},
+      join(".", unpack("C*", $HU_dnsCache{$hn}{addr})));
+  }
+  return join("\n", @ret);
+}
+
 sub
 HttpUtils_dnsParse($$$)
 {
@@ -173,7 +188,7 @@ HttpUtils_dnsParse($$$)
   return "No A record found";
 }
 
-# { HttpUtils_gethostbyname({timeout=>4}, "google.com", 1,
+# { HttpUtils_gethostbyname({timeout=>4}, "fhem.de", 1,
 #   sub(){my($h,$e,$a)=@_;; Log 1, $e ? "ERR:$e": ("IP:".ip2str($a)) }) }
 sub
 HttpUtils_gethostbyname($$$$)