Lines Matching refs:packet
45 my ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
49 $packet->print;
51 $packet->header->qr(1);
53 my @questions = $packet->question;
59 $packet->push("answer", new Net::DNS::RR("cname1.example.com 300 CNAME cname1.example.com"));
60 $packet->push("answer", new Net::DNS::RR("cname1.example.com 300 A 1.2.3.4"));
63 $packet->push("answer", new Net::DNS::RR("cname2.example.com 300 A 1.2.3.4"));
64 $packet->push("answer", new Net::DNS::RR("cname2.example.com 300 CNAME cname2.example.com"));
71 $packet->header->aa(1);
73 $packet->push("answer",
77 $packet->push("answer",
85 $packet->push("authority", new Net::DNS::RR("example.net 300 NS ns.example.net"));
86 $packet->push("additional", new Net::DNS::RR("ns.example.net 300 A 10.53.0.3"));
88 $packet->header->aa(1);
90 $packet->header->aa(1);
91 $packet->header->rcode(NXDOMAIN);
95 $packet->push("authority", new Net::DNS::RR("sub.example.org 300 NS ns.sub.example.org"));
96 $packet->push("additional", new Net::DNS::RR("ns.sub.example.org 300 A 10.53.0.3"));
99 $packet->push("authority", new Net::DNS::RR("below.www.example.com 300 NS ns.below.www.example.com"));
100 $packet->push("additional", new Net::DNS::RR("ns.below.www.example.com 300 A 10.53.0.3"));
103 $sock->send($packet->data);
106 $packet->print;