equal
deleted
inserted
replaced
135 } map { $_->{rrset} } @_; |
135 } map { $_->{rrset} } @_; |
136 |
136 |
137 my @out; |
137 my @out; |
138 my $origin = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{label}; |
138 my $origin = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{label}; |
139 my $ttl = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{ttl}; |
139 my $ttl = (grep { $_->{rrtype} eq 'SOA' } @zone)[0]->{ttl}; |
140 my $len1 = (sort map { index $_->{label}, '.' } @zone)[-1]; |
140 my $len1 = (sort { $a <=> $b } map { index $_->{label}, '.' } @zone)[-1]; |
141 my $len2 = (sort map { length $_->{rrtype} } @zone)[-1]; |
141 my $len2 = (sort { $a <=> $b } map { length $_->{rrtype} } @zone)[-1]; |
142 push @out, "\$ORIGIN $origin", "\$TTL " . ttl2h($ttl); |
142 push @out, "\$ORIGIN $origin", "\$TTL " . ttl2h($ttl); |
143 |
143 |
144 my $print = sub { |
144 my $print = sub { |
145 my %r = %{ +shift }; |
145 my %r = %{ +shift }; |
146 state $last_label; |
146 state $last_label; |