POE :: Componente :: Servidor :: DNSUn componente POE servidor de DNS no bloqueado y concurrente | |
Descargar ahora |
POE :: Componente :: Servidor :: DNS Clasificación y resumen
Anuncio publicitario
- Licencia:
- Perl Artistic License
- Precio:
- FREE
- Nombre del editor:
- Chris Williams
- Sitio web del editor:
- http://search.cpan.org/~bingos/
POE :: Componente :: Servidor :: DNS Etiquetas
POE :: Componente :: Servidor :: DNS Descripción
Un componente POE del servidor DNS no bloqueado y concurrente POE :: Componente :: Server :: DNS es un componente POE que implementa un servidor DNS.it usa Poe :: Componente :: Cliente :: DNS para manejar la resolución cuando se configura como 'hacia adelante_only' y net :: DNS :: Resolver: : Recurse envuelto por POE :: Componente :: Genérico para realizar la recursión. Puede agregar manipuladores para masajear y manipular las respuestas a consultas particulares que se modela vagamente después de NET :: DNS :: NombreServer.Synopsis usa estricto; Utilice la red :: DNS :: RR; Use PoE QW (Componente :: Server :: DNS); MY $ DNS_SERVER = POE :: Componente :: Servidor :: DNS-> Spewn (alias => 'dns_server'); PoE :: Session-> Crear (Package_States => ,],); $ poe_kernel-> corre (); Salida 0; sub _start {my ($ kernel, $ $ montones) = @_ ; # Dígale al componente que queremos que los eventos de registro vayan a 'Registro' $ kernel-> POST ('DNS_SERVER', 'LOG_EVENT', 'LOG'); # Registrar un controlador para cualquier dominio sufijo de foobar.com $ kernel-> Publicar ('dns_server', add_handler, {event => '' handler ', etiqueta =>' foobar ', coincidencia =>' foobar.com $ ',}) ; Undef; } Sub Handler {My ($ QNAME, $ QClass, $ Qtype, $ Callback) = @_ ; mi ($ rcode, @ans, @auth, @add); if ($ qtype eq "a") {my ($ ttl, $ rdata) = (3600, "10.1.2.3"); Push @ans, Net :: DNS :: RR-> Nuevo ("$ QNAME $ TTL $ QCLASS $ QType $ RDATA"); $ rcode = "noError"; } 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 :: Componente :: Servidor :: DNS Software relacionado