Net :: dnssserver :: base Dies soll die Basisklasse für alle Auflösungsmodulhandleiter sein.
Jetzt downloaden

Net :: dnssserver :: base Ranking & Zusammenfassung

Net :: dnssserver :: base Stichworte

Server Perl-Modul Perl DNS DNS Server Modulhandler

Net :: dnssserver :: base Beschreibung

Dies soll die Basisklasse für alle Auflösungsmodulhandler sein. Net :: dnssserver :: Base ist ein Perl-Modul, das die Basisklasse für alle Auflösungsmodulhandlers sein soll. Verwenden Sie net :: dnssserver; Verwenden Sie net :: dnssserver :: cache; Verwenden Sie MyTestresolver; Mein $ Resolver1 = NEW NET :: DNSserver :: Cache; Mein $ Resolver2 = New MyTestresolver {dom => "test.com"}; Run net :: dnssserver {Priority => ,}; # Niemals Returnsexample mytestresolver.pm Inhalt: Paket MyTestresolver; Verwenden Sie streng; Exporteur verwenden; Verwenden Sie net :: dnssserver :: Base; NET :: DNS :: Paket; Verwenden Sie vars qw (@isa); @Isa = QW (net :: dnssserver :: Base); # auflösen Unterprogramme MUSS SUBLESSE-SUBLINE {MY $ self = SHIFT; mein $ dns_packet = $ self -> {frage}; meine ($ Frage) = $ dns_packet -> frage (); if ($ frage -> qname eq $ freunde -> {{dom} $ frage -> qtype eq "a") {my $ response = segs \% {$ dns_packet}, "net :: dns :: paket" || sterben "das Antwortpaket nicht initialisieren"; $ Antwort-> Push ("Antwort", ; $ Response-> Push ("Autorität", ); $ Response-> Push ("zusätzlich", ; mein $ response_header = $ response-> header; $ response_header-> aa (1); # Autoritative Rückkehr $ Antwort erstellen; } Rückkehr undef; } Das Haupt-Invoker-Programm sollte die neue () -Methode für jeden Resolver aufrufen, um eine Instanz von jeweils zu erstellen. Jedes Resolver ISA NET :: DNSServer :: BASE, das explizit eine Resolzungsmethode definieren muss (). Ein Verweis auf eine Liste dieser Objekte wird an Run () als "Priority" -Rektung übergeben, wie in der obigen Synopsis demonstriert. Net :: dnssserver-> run () kehrt niemals zurück. Anforderungen: · Perl.

Net :: dnssserver :: base Zugehörige Software