Lines Matching refs:packet
127 my $packet = new Net::DNS::Packet($qname, $qtype, $qclass);
128 $packet->header->qr(1);
129 $packet->header->aa(1);
130 $packet->header->id($id);
148 $packet->push("answer", $a);
151 # Sign the packet
165 $packet->{"compnames"} = {}
167 $packet->{"header"}{"arcount"} += 1
177 $packet->sign_tsig($tsig);
182 #$packet->print;
184 return $packet->data;
203 # given a stream of data, reads a DNS wire-format packet and returns
280 # try parsing out the packet information
317 my $packet = new Net::DNS::Packet($qname, $qtype, $qclass);
318 $packet->header->qr(1);
319 $packet->header->aa(1);
320 $packet->header->id($id);
344 $packet->push("answer", $a);
347 # sign the packet
362 $packet->{"compnames"} = {}
364 $packet->{"header"}{"arcount"} += 1
377 $packet->sign_tsig($tsig);
383 Net::DNS::Packet->new(\($packet->data));
386 #$packet->print;
387 push(@results,$packet->data);
388 $packet = new Net::DNS::Packet($qname, $qtype, $qclass);
389 $packet->header->qr(1);
390 $packet->header->aa(1);
391 $packet->header->id($id);