Poe :: Bauteil :: server :: dns

Eine nicht blockierende, gleichzeitige DNS-Server-PoE-Komponente
Jetzt downloaden

Poe :: Bauteil :: server :: dns Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Chris Williams
  • Website des Verlags:
  • http://search.cpan.org/~bingos/

Poe :: Bauteil :: server :: dns Stichworte


Poe :: Bauteil :: server :: dns Beschreibung

Eine nicht blockierende, gleichzeitige DNS-Server-PoE-Komponente Poe :: Komponente :: Server :: DNS ist eine PoE-Komponente, die einen DNS-Server implementiert. Es verwendet PoE: : Recorse umwickelt von PoE :: Component :: Generic, um Recursion zu erfüllen NET :: DNS :: RR; Verwenden Sie POE QW (Komponente :: Server :: DNS); My $ dns_server = Poe :: Komponente :: Server :: DNS-> Laichen (Alias => 'DNS_Server'); PoE :: session-> erstellen (paket_states => ,],); $ poe_kernel-> run (); Ausfahrt 0; SUB _START {MY ($ KERNEL, $ Heap) = @_ ; # Erzählen Sie der Komponente, dass log-Events MOTRY-Ereignisse, um zu "log" $ kernel-> post ('dns_server', 'log_event', 'log_event'); # Registrieren Sie einen Handler für alle foobar.com-Datei-Dateien ; undef; } Subhandler {mein ($ qname, $ qclass, $ qtype, $ callback) = @_ ; mein ($ rcode, @ans, @auth, @add); if ($ qtype EQ "A") {MY ($ TTL, $ RDATA) = (3600, "10.1.2.3"); Push @ans, net :: DNS :: RR-> NEU ("$ qname $ TTL $ QCLASS $ QTYPE $ RDATA"); $ rcode = "Noerror"; } else {$ rcode = "nxdomain"; } $ callback -> ($ rcode, @ans, @auth, @add, {aa => 1}); undef; } Unterprogramm {MY ($ ip_port, $ net_dns_packet) = @_ ; $ net_dns_packet-> drucken (); undef; } Anforderungen: · Perl.


Poe :: Bauteil :: server :: dns Zugehörige Software

Über uns