FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-26 10:15:48 +00:00
Code Issues Releases Wiki Activity

HttpUtils.pm: add HttpUtils_dumpDnsCache (Forum #84372)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20363 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-10-14 19:15:00 +00:00
parent dc35e80b90
commit 32d67623ad
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/HttpUtils.pm
View File

@ -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($$$$)