透過的なHTTP プロキシを 1 つ作成しようとしています。その目的は、ブラウザーと Web サーバーの間に留まり、見えないようにすることです。これが私が使用しているコードです。残念ながら、うまく機能していません。Web ページ ( で参照$base_uri
) を開くと、ブラウザのみを使用して開いたか、ブラウザとプロキシを使用して開いたかによって結果が異なります。「 」を含むあらゆる種類の応答を返す Web サイトで試していますtransfer-encoding: chunked
(問題があるのではないでしょうか?!)。Cookie にも問題がある可能性があると思いますが、解決方法がわかりません (もしあれば...)。
#!/usr/bin/perl
use strict;
use HTTP::Daemon;
use LWP::UserAgent;
use HTTP::Cookies;
my $cookie_jar = HTTP::Cookies->new();
my $ua = LWP::UserAgent->new( max_redirect => 0, env_proxy => 0,keep_alive => 1, timeout => 30, agent => "Mozilla/4.76 [en] (Win98; U)");
my $d = HTTP::Daemon->new(
LocalHost => "localhost", # remove this to listen from other machines
# (i.e. open-relay... be careful of spammers!)
LocalPort => 33331
) || die;
print "[Proxy URL:", $d->url, "]\n";
fork(); fork(); fork(); # 2^3 = 8 processes
$ua->cookie_jar($cookie_jar);
my $base_uri = 'http://example.com/';
while (my $c = $d->accept) {
while (my $request = $c->get_request) {
my $uri = $base_uri . $request->uri->as_string();
my $method = $request->method;
my $req = HTTP::Request->new($method, $uri);
$request->uri($uri);
print "[[ $method >> $uri ]]\n";
my $response = $ua->simple_request($request);
$c->send_response( $response );
}
$c->close;
undef($c);
}
前もって感謝します!