nDiki : HTTP::Daemon

HTTP Perl インタフェース LWP::UserAgent ActivePerl CGI パイプが切断されました Devel::Cover CGI プログラム CGI.pm PPM::Make Tie::File IPC::ShareLite ExtUtils::MakeMaker Storable Win32 nDiki Wx::ActiveX Search::InvertedIndex 例外処理 Template Toolkit HTML Devel::Size Test::Harness URI::Fetch GUI AppConfig CGI::Session h2xs ExtUtils::ModuleMaker::TT

■ 自作 HTTP Proxy、パイプライン化

一昨日で書いた HTTP Proxy、使用しているライブラリ(LWP::UserAgent, HTTP::Daemon) それぞれパイプライン的な処理(レスポンス全体を受信/作成することなく、処理/送信)サポートを利用してパイプライン化。

どちらのライブラリもコールバックを指定する形でそのままでは、つなげないので、HTTP::Daemon でクライアントへのレスポンスの送信を一部づつ送る方は簡単に自作した。

これで、サイズの大きいページも Proxy がすぐに転送を開始できるため、ブラウザ側で待たされる事が少なくなった。 めでたし、めでたし。

• HTTP::Daemonベースのプログラムのテスト (2004-11-26)
• HTTP/1.0 Simple-Response (2004-06-01)
• Perl CGI プログラムのテストには WWW::Mechanize::... (2006-02-18)
• 他の Web サイトの情報を URI::Fetch でキャッシュ付き取得 (2005-10-29)
• XMLRPC::Lite + 自前の HTTP::Daemon サーバ (2004-09-14)

■ HTTP::Daemon - パイプが切断されました

[ Perl ]

HTTP::Daemon でHTTPインタフェースを提供しているプログラムがあるのだが、レスポンスに時間がかかるリクエスト時にクライアント側で中断すると「パイプが切断されました (broken pipe)」で異常終了してまう。

 $SIG{PIPE} = 'IGNORE';

しておかないと駄目らしい。

• XMLRPC::Lite + 自前の HTTP::Daemon サーバ (2004-09-14)
• やっぱ hns (2003-11-20)
• [ Perl ] Devel::Cycle (2004-01-23)
• ActivePerl で Ming (2005-02-23)
• Cache::Memcached 1.13 の Perl 5.005_03 対応 (2004-06-05)

■ XMLRPC::Lite + 自前の HTTP::Daemon サーバ

既に HTTP::Daemon で作成されているHTTPサーバで、XML-RPC インタフェースを提供したい。 前回のチェックで XMLRPC::Lite を使う事にした(RPC::XML は ActivePerl 5.6.1 build638 でテストが通らない)。 このパッケージで用意されているサーバ向けモジュールは、主に単独CGI プログラムで使うモジュールと、自前で HTTP::Daemon をまわすサーバタイプ。

そのままでは使えないので、以下のように。

1. XMLRPC::Transport::HTTP::CGI のサブクラスを作成し、handle をオーバライドする。中身は SOAP::Transport::HTTP::Server::handle を呼ぶだけ (SUPER::handle では駄目)。
2. XML-RPC リクエストがきたら、上記インスタンスの request メソッドで HTTP::Request オブジェクトを渡す。
3. handle を実行。
4. response メソッドで HTTP::Response を受け取り、クライアントに送信。

handle メソッドで入出力をさせないようにするのがポイント。

• Perl CGI プログラムのテストには WWW::Mechanize::... (2006-02-18)
• RPC::XML のかわりに XMLRPC::Lite (2004-08-31)
• www.naney.org に「友人・知人に紹介メール」ページを新設 (2000-12-27)
• HTTP::Daemonベースのプログラムのテスト (2004-11-26)
• mapperl.pl (2002-01-22)

■ HTTP::Daemonベースのプログラムのテスト

make test でテストしておけるようにしておきたい。

ということで王道。fork して daemon プログラムを exec。 WWW::Mechanizeで daemon に HTTP でアクセスし各種テスト。

終わったら kill。

Win32 (ActivePerl)では fork + exec で起動できるのだけれど kill では死なない。 ということで Win32::Process::Create で直接起動して、Win32::Process::Kill で終了させるという別解で。

HTTP + HTMLのテストは、以前ちょっと使ったことのあるHTTP::WebTestを使おうかと思ったが、なんだかんだいって WWW::Mechanize の方が好きなように書けそうなのでこちらをチョイス。

• XMLRPC::Lite + 自前の HTTP::Daemon サーバ (2004-09-14)
• ActivePerl 5.6.1 Build 638 にバンドルされている... (2004-08-19)
• [ WiKicker ] If-Modified-Since: 関連作業ほぼ済 (2003-09-19)
• 他の Web サイトの情報を URI::Fetch でキャッシュ付き取得 (2005-10-29)
• WiKicker における PageName 最長文字数 (2006-06-10)