Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> lwp vs https proxy с авторизацией, каким образом заставить его работать? 
:(
    Опции темы
burakov
Дата 30.6.2014, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет



Добрый день.

Смешав все разрозненные знания в кучу получил следующий нерабочий код, 
который при обращении к https прокси выдает http ошибку 400
(хотя броузер нормально ходит через него).

подскажите как ходить с помощью LWP через https прокси с авторизацией, что не так в моем коде? почему 400?
Спасибо.



Код

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use LWP::Protocol::https;
use IO::Socket::SSL;

my $proxy = 'http://46.17.42.90:8080';
my $username = 'RUR1c1i139U206';
my $password = '2bcef76284';

$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} = "Net::SSL";
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
$ENV{HTTPS_PROXY}               = $proxy;
$ENV{HTTPS_PROXY_USERNAME}      = $username;
$ENV{HTTPS_PROXY_PASSWORD}      = $password;

my $ua = new LWP::UserAgent;

$ua->proxy (['http', 'https'], $proxy);
$ua->env_proxy;

# # make a https request
my $req = HTTP::Request->new (GET => 'https://w.qiwi.com/register/form.action');

# my $req = HTTP::Request->new (GET => 'http://rambler.ru');
# $req -> proxy_authorization_basic ($username, $password);

my $res = $ua->request($req);
print $res->as_string;



Добавлено через 12 минут и 57 секунд
а вот обращение на прокси без атвторизации (она там не нужна, он без авторизации) (я его сам правда поднял, но броузер через него ходит нормально). дает код ошибки 501.
в чем проблема?



Код

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use LWP::Protocol::https;
use IO::Socket::SSL;

my $proxy = 'http://185.4.73.175:3128';
my $ua = new LWP::UserAgent;
$ua->proxy (['http', 'https'], $proxy);
my $req = HTTP::Request->new (GET => 'https://w.qiwi.com/register/form.action');
my $res = $ua->request($req);
print $res->as_string;





--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
burakov
Дата 30.6.2014, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет



вдруг кому нужно будет 
заработало вот как

делаете ТАК (дебиан 6,0)

apt-get install libnet-ssleay-perl
apt-get install libcrypt-ssleay-perl
apt-get install libssl-dev openssl


и вот так

perl -MCPAN -e shell
install Net::SSL



и работает во всех вариациях кода.
всем спасибо.


*******
Оказалось совсем не так просто.
оказалось в LWP это известный баг. 
Знакомый программист перл и админ линукс , супер гуру,
сумел поставить нужные версии модулей всех и вся, чтобы это чудо заработало. Ему огромное спасибо и респект. 


Это сообщение отредактировал(а) burakov - 30.6.2014, 15:43


--------------------
Нотный архив http://libnote.ru скачать ноты бесплатно
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »


 




[ Время генерации скрипта: 0.0990 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.