2008-05-19

Прокси

Накопанный текст для LWP - с проксями, отладкой и т.д.
#!/usr/bin/perl -w
use strict;

use LWP::Debug qw(+conns);
local $ENV{PERL_LWP_USE_HTTP_10} = 1;
# мало помогает - лучше запускать скрипт с этим параметром
use LWP::UserAgent;
use LWP::ConnCache;

my $ua = LWP::UserAgent->new();
$ua->conn_cache(LWP::ConnCache->new());

#$ua->env_proxy;
$ua->proxy('http','http://127.0.0.1:3128');
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9b5) Gecko/2008050509 Firefox/3.0b5");
#my $response = $ua->get(
'http://www.perlmonks.org');
#$ua->mirror($url,$file);
#$ua->head($url);

Конфиги прокси для SVN^ ~/.subversion/servers
[global]
# http-proxy-exceptions = *.exception.com, www.internal-site.org
http-proxy-host = cdit
http-proxy-port = 3128
http-proxy-username = gimly
http-proxy-password = pass
http-compression = yes
Пока всё.

Комментариев нет: