| PoE :: Component :: Server :: DNS. ノンブロッキング、同時DNSサーバーPoEコンポーネント |
今すぐダウンロード |
PoE :: Component :: Server :: DNS. ランキングとまとめ
- ライセンス:
- Perl Artistic License
- 出版社のWebサイト:
- http://search.cpan.org/bingos/
PoE :: Component :: Server :: DNS. タグ
PoE :: Component :: Server :: DNS. 説明
非ブロッキング、同時DNSサーバPoEコンポーネント POE :: Component :: Server :: DNSは、DNS Server.ITを実装するPoEコンポーネントです.PoE :: Component :: Client :: DNSを使用して、「forward_only」およびnet :: dns :: Resolverとして設定されている場合の解決を処理します。 :PoE :: Component :: GenericによってRecurse。 Net :: DNS :: RRを使用する。 PoE QW(Component :: Server :: DNS)を使用してください。 My $ DNS_SERVER = POE :: Component :: Server :: DNS-> Spawn(Alias => 'DNS_Server'); POE :: Session-> Create(package_states => 、]、)。 $ poe_kernel-> run(); 0を終了します。サブ_start {My($カーネル、$ヒープ)= @_ ; #ログインイベントを「ログ」$ kernel-> post( 'dns_server'、 'log_event'、 'log')に進むようにするコンポーネントを指示します。 #foobar.comサファックスドメイン$カーネル - > POST( 'DNS_SERVER'、ADD_HANDLER、{event => 'handler'、LABEL => 'foobar'、match => 'foobar.com $'、}) ; undef;サブハンドラ{My($ QNAME、$ QCLASS、$ QTYPE、$ CALLBACK)= @_ ;; 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"; {$ rcode = "nxdomain"} $ Callback - >($ RCODE、@ans、@Auth、@add、{aa => 1}); undef; {My($ IP_PORT、$ NET_DNS_PACKET)= @_ ;}。 $ net_dns_packet-> print(); undef; } 要件: ・Perl
PoE :: Component :: Server :: DNS. 関連ソフトウェア