Lines Matching refs:ttl
53 my $ttl = $r->{ttl};
61 my $row_value = "$replId $name $ttl $type $data";
150 my ($name, $ttl, $type, $data) = split(/\s+/, $_, 4);
151 my $record = { name=>$name, ttl=>$ttl, type=>$type, data=>$data };
179 if (!defined $r->{ttl} || $r->{ttl} eq '') {
183 if ($r->{ttl} =~ /\D/ || $r->{ttl} < 0) {
224 die "$soa_error, missing negative cache ttl";
227 die "$soa_error, negative cache ttl must be an integer greater than 0";