Poe :: Component :: Server :: DNS Um componente PoE do servidor DNS não-bloqueio, concorrente
Baixe Agora

Poe :: Component :: Server :: DNS Classificação e resumo

Poe :: Component :: Server :: DNS Tag

servidor Módulo Perl. Dns. Servidor dns Poe. Componente PoE.

Poe :: Component :: Server :: DNS Descrição

Um componente PoE do servidor DNS não bloqueador, simultâneo PoE :: Servidor :: DNS é um componente PoE que implementa um servidor DNS.IT usa Poe :: Cliente :: DNS :: DNS para lidar com resolução quando configurado como 'forward_only' e net :: DNS :: Resolver: : Recurso envolvido por poe :: genérico para executar a recursão.One pode adicionar manipuladores para massagear e manipular respostas a consultas específicas que é vagamente modelado após líquido :: DNS :: Nameserver.synopsis usam rigoroso; Use Net :: DNS :: RR; Use PoE QW (Component :: Server :: DNS); Meu $ DNS_SERVER = PoE :: Componente :: Servidor :: DNS-> Spawn (Alias => 'DNS_SERVER'); Poe :: Session-> Create (Package_States => ,],); $ poe_kernel-> correr (); saída 0; sub _start {my ($ kernel, $ heap) = @_ ; # Diga ao componente que queremos que os eventos de log para ir "log '$ kernel-> post (' dns_server ',' log_event ',' log '); # Registar um manipulador para qualquer foobar.com Domínios sufixados $ kernel-> post ('dns_server', add_handler, {event => 'manipulador', etiqueta => 'foobar', jogo => 'foobar.com $',}) ; undef; } Sub manipulador {MY ($ QNAME, $ QCLASS, $ QTYPE, $ Callback) = @_ ; meu ($ rcode, @ans, @auth, @add); se ($ QTYPE EQ "A") {MY ($ TTL, $ RDATA) = (3600, "10.1.2.3"); empurrar @ans, net :: dns :: rr-> novo ("$ qname $ ttl $ qclass $ QTYPE $ rdata"); $ rcode = "NoEerror"; } else {$ rcode = "nxdomain"; } $ Callback -> ($ rcode, @ans, @auth, @add, {aa => 1}); undef; } sub log {my ($ ip_port, $ net_dns_packet) = @_ ; $ net_dns_packet-> Imprimir (); undef; } Requisitos: · Perl.

Poe :: Component :: Server :: DNS Software Relacionado