Lines Matching refs:packet
102 my ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
105 $packet->header->qr(1);
106 $packet->header->aa(1);
108 my @questions = $packet->question;
114 while (my $rr = $packet->pop("additional")) {
128 $packet->push("answer", $a);
131 # Sign the packet
145 $packet->{"compnames"} = {};
146 $packet->{"header"}{"arcount"} += 1;
155 $packet->sign_tsig($tsig);
160 #$packet->print;
162 return $packet->data;
181 # given a stream of data, reads a DNS wire-format packet and returns
226 # try parsing out the packet information
247 my ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
250 $packet->header->qr(1);
251 $packet->header->aa(1);
253 my @questions = $packet->question;
260 while (my $rr = $packet->pop("additional")) {
278 $packet->push("answer", $a);
281 # sign the packet
296 $packet->{"compnames"} = {};
297 $packet->{"header"}{"arcount"} += 1;
307 $packet->sign_tsig($tsig);
311 Net::DNS::Packet->new(\($packet->data));
314 #$packet->print;
315 push(@results,$packet->data);
316 $packet = new Net::DNS::Packet(\$buf, 0);
317 $packet->header->qr(1);
318 $packet->header->aa(1);