|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Roman V Tchemisov 2:5020/400 05 Feb 2004 22:30:56
To : All
Subject : Работа через прокси-сервер
--------------------------------------------------------------------------------
Доброго времени суток, уважаемый All!
Проблемы с работой через прокси-сервер. Есть такой рабочий код:
use LWP::UserAgent;
my $uri = 'http://www.dsi.ru/';
my $uname = 'login';
my $pass = 'password';
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $uri);
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');
$ua->proxy(['http', 'ftp'], 'http://proxy.iriit:3128/');
$req->proxy_authorization_basic($uname, $pass);
my $res = $ua->request($req);
Всё бы хорошо, но в каждом новом запросе я должен делать:
$req->proxy_authorization_basic($uname, $pass);
а это не очень удобно.
Как мне прописать авторизацию на уровне пользовательского агента?
Подозреваю, что примерно так:
$ua->credentials( $netloc, $realm, $uname, $pass );
но такой способ почему-то не работает.
Hе могу разобраться с синтаксисом credentials( ). Что такое $netloc?
--- ifmail v.2.15dev5.3
* Origin: Golden Telecom (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
