equal
deleted
inserted
replaced
20 foreach (['ssl.schlittermann.de' => 443], |
20 foreach (['ssl.schlittermann.de' => 443], |
21 ['mx1.mailbox.org' => 25], |
21 ['mx1.mailbox.org' => 25], |
22 ['ssl.kugelbus.de' => 443]) { |
22 ['ssl.kugelbus.de' => 443]) { |
23 my ($domain, $port) = @$_; |
23 my ($domain, $port) = @$_; |
24 my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i } `dig tlsa _$port._tcp.$domain`; |
24 my (@tlsa) = map { /^_$port._tcp.\S+\s+\d+\s+IN\s+TLSA\s+(.*\n)/i } `dig tlsa _$port._tcp.$domain`; |
25 #my (@tlsa) = `dig tlsa _$port._tcp.$domain +short`; |
25 #is get_tlsa_from_dns($domain, $port), $tlsa[0] => "TLSA for $domain:$port"; |
26 is get_tlsa_from_dns($domain, $port), $tlsa[0] => "TLSA for $domain:$port"; |
26 my @check = get_tlsa_from_dns($domain, $port); |
|
27 is $check[0], $tlsa[0] => "TLSA for $domain:$port"; |
27 } |
28 } |
28 }; |
29 }; |