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