|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ilia Vinokurov 2:5020/400 26 Nov 2003 16:00:27 To : ћаЁ© †гЄ®ў Subject : Re: LWP proxy как указать user/password -------------------------------------------------------------------------------- Hello, Юрий! You wrote to All on Wed, 26 Nov 2003 07:37:46 +0000 (UTC): ЮЖ> Получаю ошибку: ЮЖ> Error: 407 Proxy Authentication Required ЮЖ> Вопрос как мне указать прокси имя и пароль? use LWP::UserAgent; use HTTP::Headers; my $uri = '/cgi-bin/rambler_search?...'; my $host = 'search.rambler.ru'; my $h = HTTP::Headers->new(); $h -> header( 'Host' => $host ); $h -> header( 'Accept' => '*/*' ); $h -> header( 'Accept-Language' => 'ru' ); $h -> header( 'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)' ); $h -> proxy_authorization_basic('login', 'passwd'); my $request = HTTP::Request->new('GET', 'http://'.$host.$uri, $h); # print STDERR $request->as_string; my $ua = LWP::UserAgent->new(env_proxy => 0, keep_alive => 0, timeout => 300, ); $ua->proxy('http', 'http://xxx.xxx.xxx.xxx:3128/'); my $response = $ua->request($request); return parsePage($response->content()); --- ifmail v.2.15dev5.1 * Origin: Comcor (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/7808203f3259.html, оценка из 5, голосов 10
|