Lines Matching refs:ttl
65 my ($ttl, $rdata) = (0, "$count");
66 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
79 my ($ttl, $rdata) = (3600, $localaddr);
80 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
96 my ($ttl, $rdata) = (3600, $localaddr);
97 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
110 my ($ttl, $rdata) = (3600, $localaddr);
111 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");
112 print("\tresponse: $qname $ttl $qclass $qtype $rdata\n");
119 my ($ttl, $rdata) = (3600, $localaddr);
120 my $rr = new Net::DNS::RR("$qname $ttl $qclass $qtype $rdata");