POE :: 구성 요소 :: 서버 :: DNS.

비 블로킹, 동시 DNS 서버 POE 구성 요소
지금 다운로드

POE :: 구성 요소 :: 서버 :: DNS. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Chris Williams
  • 게시자 웹사이트:
  • http://search.cpan.org/~bingos/

POE :: 구성 요소 :: 서버 :: DNS. 태그


POE :: 구성 요소 :: 서버 :: DNS. 설명

비 차단, 동시 DNS 서버 PoE 구성 요소 PoE :: Component :: Server :: DNS는 DNS Server를 구현하는 PoE 구성 요소입니다. PoE :: Component :: Client :: DNS는 'Furning_Only'및 Net :: DNS :: Resolver로 구성 될 때 해결을 처리합니다. : PoE :: Component :: Recursion을 수행하기 위해 래핑 된 재귀 : Net :: DNS :: Nameerver.Synopsis는 엄격한 후에 막연하게 모델링 된 특정 쿼리에 대한 응답을 마사지하고 조작 할 수 있습니다. net :: dns :: rr; POE QW (Component :: Server :: DNS)를 사용하십시오. MY $ DNS_SERVER = POE :: 구성 요소 :: 서버 :: DNS-> SPAWN (alias => 'dns_server'); POE :: 세션 -> create (package_states => ,]; $ poe_kernel-> run (); 종료 0; SUB _START {MY ($ kernel, $ heap) = @_ ; # 로그 이벤트가 '로그'$ kernel-> post ( 'dns_server', 'log_event', 'log_event', 'log')로 이동하도록 로그 이벤트를 알려줍니다. # foobar.com에 대한 핸들러 등록 접미사 한 도메인 $ kernel-> post ( 'dns_server, add_handler, {event => add_handler, {event =>'handler ', label =>'foobar ', match =>'foobar.com $ ',}) ...에 undef; } 하위 처리기 {My ($ QName, $ qclass, $ qtype, $ 콜백) = @_ ; MY ($ rcode, @ans, @auth, @add); if ($ qtype eq "a") {my ($ ttl, $ rdata) = (3600, 10.1.2.3 "); 푸시 @ANS, NET :: DNS :: RR-> NEW ( "$ QNAME $ TTL $ QCLASS $ QTYPE $ RDATA"); $ rcode = "noerror"; } else {$ rcode = "nxdomain"; } $ 콜백 -> ($ rcode, @ans, @auth, @add, {aa => 1}); undef; } 하위 로그 {My ($ IP_PORT, $ nET_DNS_PACKET) = @_ ; $ net_dns_packet-> print (); undef; } 요구 사항 : · Perl.


POE :: 구성 요소 :: 서버 :: DNS. 관련 소프트웨어

회사 소개