Lines Matching refs:packet
101 my $packet;
104 $packet = new Net::DNS::Packet(\$buf, 0);
108 ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
112 $packet->header->qr(1);
113 $packet->header->aa(1);
115 my @questions = $packet->question;
121 while (my $rr = $packet->pop("additional")) {
135 $packet->push("answer", $a);
138 # Sign the packet
152 $packet->{"compnames"} = {};
153 $packet->{"header"}{"arcount"} += 1;
162 $packet->sign_tsig($tsig);
167 #$packet->print;
169 return $packet->data;
188 # given a stream of data, reads a DNS wire-format packet and returns
233 # try parsing out the packet information
253 my $packet;
256 $packet = new Net::DNS::Packet(\$buf, 0);
260 ($packet, $err) = new Net::DNS::Packet(\$buf, 0);
264 $packet->header->qr(1);
265 $packet->header->aa(1);
267 my @questions = $packet->question;
274 while (my $rr = $packet->pop("additional")) {
292 $packet->push("answer", $a);
295 # sign the packet
310 $packet->{"compnames"} = {};
311 $packet->{"header"}{"arcount"} += 1;
321 $packet->sign_tsig($tsig);
325 Net::DNS::Packet->new(\($packet->data));
328 #$packet->print;
329 push(@results,$packet->data);
330 $packet = new Net::DNS::Packet(\$buf, 0);
331 $packet->header->qr(1);
332 $packet->header->aa(1);