Cross Reference: /src/external/mpl/bind/dist/bin/tests/system/ans.pl

Lines Matching refs:Net
92 use Net::DNS;
93 use Net::DNS::Packet;
127 print "Using Net::DNS $Net::DNS::VERSION\n";
146 	if ($Net::DNS::VERSION > 0.68) {
147 		$request = new Net::DNS::Packet(\$buf, 0);
151 		($request, $err) = new Net::DNS::Packet(\$buf, 0);
161 	my $packet = new Net::DNS::Packet($qname, $qtype, $qclass);
188 				if ($Net::DNS::VERSION < 0.69) {
189 					$tsig = Net::DNS::RR->new(
192 					$tsig = Net::DNS::RR->new(
199 				# These kluges are necessary because Net::DNS
208 					if ($Net::DNS::VERSION < 0.70);
210 					if ($Net::DNS::VERSION < 0.70);
212 					if ($Net::DNS::VERSION < 0.73) {
260 	# decode/encode were introduced in Net::DNS 0.68
264 	$decode = 1 if ($Net::DNS::VERSION >= 0.68);
267 		($header, $offset) = Net::DNS::Header->decode(\$data);
269 		($header, $offset) = Net::DNS::Header->parse(\$data);
275 				 Net::DNS::Question->decode(\$data, $offset);
278 				 Net::DNS::Question->parse(\$data, $offset);
283 			($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
285 			($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
290 			($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
292 			($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
297 			($q, $offset) = Net::DNS::RR->decode(\$data, $offset);
299 			($q, $offset) = Net::DNS::RR->parse(\$data, $offset);
306 # This is a hack to correct the problem that Net::DNS has no idea how
311 # Net::DNS::Packet->sign_tsig() has the ability to use a custom signing
342 	return Net::DNS::RR::TSIG::sign_hmac($key, $data);
349 	if ($Net::DNS::VERSION > 0.68) {
350 		$request = new Net::DNS::Packet(\$buf, 0);
354 		($request, $err) = new Net::DNS::Packet(\$buf, 0);
366 		$has_opt = 1 if (ref($_) eq 'Net::DNS::RR::OPT');
371 	my $packet = new Net::DNS::Packet($qname, $qtype, $qclass);
380 	if ($Net::DNS::VERSION < 0.81) {
449 				if ($Net::DNS::VERSION < 0.69) {
450 					$tsig = Net::DNS::RR->new(
453 				} elsif ($Net::DNS::VERSION >= 0.81 &&
455 				} elsif ($Net::DNS::VERSION >= 0.75 &&
459 					$tsig = Net::DNS::RR->new(
466 				# These kluges are necessary because Net::DNS
475 					if ($Net::DNS::VERSION < 0.70);
477 					if ($Net::DNS::VERSION < 0.70);
479 					if ($Net::DNS::VERSION < 0.73) {
485 					} elsif ($Net::DNS::VERSION < 0.81) {
493 					 ($Net::DNS::VERSION >= 0.71 &&
494 					  $Net::DNS::VERSION <= 0.74 );
495 				if ($Net::DNS::VERSION < 0.81) {
503 					if ($Net::DNS::VERSION < 0.70);
507 					Net::DNS::Packet->new(\($packet->data));
516 			$packet = new Net::DNS::Packet($tname, $qtype, $qclass);
556 				     new Net::DNS::RR($line));
OpenGrok
