Lines Matching refs:qclass
135 my $qclass = shift;
138 $self->logger->auto("DNS:QUERY_RESOLVER", $qname, $qclass, $qtype);
140 unless ($self->{cache}{resolver}{$qname}{$qclass}{$qtype}) {
141 $self->{cache}{resolver}{$qname}{$qclass}{$qtype} =
142 $self->{resolver}->recurse($qname, $qtype, $qclass);
146 $qname, $qclass, $qtype);
151 my $packet = $self->{cache}{resolver}{$qname}{$qclass}{$qtype};
167 my $qclass = shift;
170 $self->logger->auto("DNS:QUERY_PARENT", $zone, $qname, $qclass, $qtype);
172 unless ($self->{cache}{parent}{$zone}{$qname}{$qclass}{$qtype}) {
173 $self->{cache}{parent}{$zone}{$qname}{$qclass}{$qtype} =
174 $self->query_parent_nocache($zone, $qname, $qclass, $qtype);
177 my $packet = $self->{cache}{parent}{$zone}{$qname}{$qclass}{$qtype};
196 my $qclass = shift;
201 $zone, $qname, $qclass, $qtype);
220 $self->logger->auto("DNS:FIND_PARENT", $zone, $qclass);
221 my $parent = $self->find_parent($zone, $qclass);
223 $self->logger->auto("DNS:NO_PARENT", $zone, $qclass);
226 $self->logger->auto("DNS:PARENT_OF", $parent, $zone, $qclass);
230 $self->init_nameservers($parent, $qclass);
233 my $ipv4 = $self->get_nameservers_ipv4($parent, $qclass);
234 my $ipv6 = $self->get_nameservers_ipv6($parent, $qclass);
239 $self->logger->auto("DNS:NO_PARENT_NS", $parent, $zone, $qclass);
246 return $self->_query_multiple($qname, $qclass, $qtype, $flags, @target);
255 my $qclass = shift;
258 $self->logger->auto("DNS:QUERY_CHILD", $zone, $qname, $qclass, $qtype);
260 unless ($self->{cache}{child}{$zone}{$qname}{$qclass}{$qtype}) {
261 $self->{cache}{child}{$zone}{$qname}{$qclass}{$qtype} =
262 $self->query_child_nocache($zone, $qname, $qclass, $qtype);
265 my $packet = $self->{cache}{child}{$zone}{$qname}{$qclass}{$qtype};
279 my $qclass = shift;
285 $zone, $qname, $qclass, $qtype);
288 $self->init_nameservers($zone, $qclass);
293 my $ipv4 = $self->get_nameservers_ipv4($zone, $qclass);
294 my $ipv6 = $self->get_nameservers_ipv6($zone, $qclass);
299 $self->logger->auto("DNS:NO_CHILD_NS", $zone, $qclass);
305 return $self->_query_multiple($qname, $qclass, $qtype, $flags, @target);
313 my $qclass = shift;
318 $self->logger->auto("DNS:QUERY_EXPLICIT", $address, $qname, $qclass,
329 if ($self->check_blacklist($address, $qname, $qclass, $qtype)) {
331 $address, $qname, $qclass, $qtype);
335 my $packet = $resolver->get($qname, $qtype, $qclass, $address);
339 $address, $qname, $qclass, $qtype);
340 $self->add_blacklist($address, $qname, $qclass, $qtype);
342 $address, $qname, $qclass, $qtype);
372 $self->add_blacklist($address, $qname, $qclass, $qtype);
374 $address, $qname, $qclass, $qtype);
380 $self->logger->auto("DNS:NO_ANSWER", $address, $qname, $qclass, $qtype);
388 $self->logger->auto("DNS:NOT_AUTH", $address, $qname, $qclass,
410 my $qclass = shift;
426 $packet = $resolver->get($qname, $qtype, $qclass, $address);
433 $qclass, $qtype);
449 $qname, $qclass, $qtype);
524 my $qclass = shift;
526 $self->init_nameservers($qname, $qclass);
528 return $self->{nameservers}{$qname}{$qclass}{ipv4};
534 my $qclass = shift;
536 $self->init_nameservers($qname, $qclass);
538 return $self->{nameservers}{$qname}{$qclass}{ipv6};
544 my $qclass = shift;
548 $self->logger->auto("DNS:GET_NS_AT_PARENT", $qname, $qclass);
554 my $packet = $self->query_parent($qname, $qname, $qclass, "NS");
578 my $qclass = shift;
582 $self->logger->auto("DNS:GET_NS_AT_CHILD", $qname, $qclass);
584 my $packet = $self->query_child($qname, $qname, $qclass, "NS");
602 my $qclass = shift;
604 unless ($self->{nameservers}{$qname}{$qclass}{ns}) {
605 $self->_init_nameservers_helper($qname, $qclass);
612 my $qclass = shift;
617 $self->logger->auto("DNS:INITIALIZING_NAMESERVERS", $qname, $qclass);
619 $self->{nameservers}{$qname}{$qclass}{ns} = ();
620 $self->{nameservers}{$qname}{$qclass}{ipv4} = ();
621 $self->{nameservers}{$qname}{$qclass}{ipv6} = ();
624 my $ns = $self->query_resolver($qname, $qclass, "NS");
631 push @{ $self->{nameservers}{$qname}{$qclass}{ns} }, $rr->nsdname;
635 goto DONE unless ($self->{nameservers}{$qname}{$qclass}{ns});
637 foreach my $ns (sort @{ $self->{nameservers}{$qname}{$qclass}{ns} }) {
640 my $ipv4 = $self->query_resolver($ns, $qclass, "A");
646 $self->logger->auto("DNS:NAMESERVER_FOUND", $qname, $qclass,
653 my $ipv6 = $self->query_resolver($ns, $qclass, "AAAA");
659 $self->logger->auto("DNS:NAMESERVER_FOUND", $qname, $qclass,
667 $self->{nameservers}{$qname}{$qclass}{ipv4} = [keys %nsv4];
668 $self->{nameservers}{$qname}{$qclass}{ipv6} = [keys %nsv6]
670 $self->logger->auto("DNS:NAMESERVERS_INITIALIZED", $qname, $qclass);
700 my $qclass = shift;
702 unless ($self->{parent}{$qname}{$qclass}) {
703 $self->{parent}{$qname}{$qclass} =
704 $self->_find_parent_helper($qname, $qclass);
707 my $parent = $self->{parent}{$qname}{$qclass};
715 my $qclass = shift;
719 $self->logger->auto("DNS:FIND_PARENT_BEGIN", $qname, $qclass);
722 my $try = $self->_find_soa($qname, $qclass);
740 $parent = $self->_find_soa($try, $qclass);
754 $self->logger->auto("DNS:FIND_PARENT_RESULT", $parent, $qname, $qclass);
756 $self->logger->auto("DNS:NXDOMAIN", $qname, $qclass);
765 my $qclass = shift;
768 $answer = $self->{resolver}->recurse($qname, "SOA", $qclass);
841 my $qclass = shift;
845 $self->logger->auto("DNS:FIND_ADDRESSES", $qname, $qclass);
847 my $ipv4 = $self->query_resolver($qname, $qclass, "A");
848 my $ipv6 = $self->query_resolver($qname, $qclass, "AAAA");
873 $self->logger->auto("DNS:FIND_ADDRESSES_RESULT", $qname, $qclass,
885 my $qclass = shift;
891 $self->query_explicit($qname, $qclass, "SOA", $address, { aaonly => 0 });
905 my $qclass = shift;
926 my $packet = $resolver->get($nonexisting, $qtype, $qclass, $address);
929 $qclass, $qtype);
960 my $qclass = shift;
975 $resolver->axfr_start($qname, $qclass);
990 my $qclass = shift;
1014 my $query = Net::DNS::Packet->new($qname, $qtype, $qclass);
1092 my $qclass = shift;
1095 $self->{blacklist}{$qaddr}{$qname}{$qclass}{$qtype} = 1;
1102 my $qclass = shift;
1105 return 1 if ($self->{blacklist}{$qaddr}{$qname}{$qclass}{$qtype});