|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Osin 2:5030/1460 05 Jul 2002 18:53:57
To : All
Subject : проблема с LWP (не работает https через прокси)
--------------------------------------------------------------------------------
Почему-то не работает следующий код.
То есть он работает, но прокся возвращает 400 Bad request.
В чем может быть трабл?
Заранее спасибо.
----------------------------------8<----------------------------------
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my (
$agent,
$ua,
$url, $sign_url, $content,
$login, $password, $base_url,
);
$agent = 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)';
$ua = LWP::UserAgent->new();
$ua->agent($agent);
$ua->proxy(['http','https'], "http://proxy.provider.com:3128");
$url = 'https://www.ripn.net';
$req = HTTP::Request->new(GET => $url);
$response = $ua->request($req);
print $response->content();
----------------------------------8<----------------------------------
Alexander Osin. AVO11-RIPN. mailto: osin(at)intercode.ru
--- QDed / FreeBSD 3.3
* Origin: Intercode LLC. http://www.intercode.ru (2:5030/1460)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
