equal
deleted
inserted
replaced
56 data => $+{data}, |
56 data => $+{data}, |
57 ); |
57 ); |
58 next if $rrset{rrtype} ~~ $arg{-skip}; |
58 next if $rrset{rrtype} ~~ $arg{-skip}; |
59 |
59 |
60 if ($rrset{rrtype} eq 'SOA') { |
60 if ($rrset{rrtype} eq 'SOA') { |
61 next if $soa_seen; |
61 next if $soa_seen++; |
62 $soa_seen = 1; |
62 $rrset{data} =~ s/\s+/ /g; # squeeze spaces |
63 } |
63 } |
64 |
64 |
65 # label ergänzen, wenn nicht FQDN |
65 # label ergänzen, wenn nicht FQDN |
66 $rrset{label} .= ".$origin" |
66 $rrset{label} .= ".$origin" |
67 unless substr($rrset{label}, -1) eq '.'; |
67 unless substr($rrset{label}, -1) eq '.'; |