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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с post на https, ответ не приходит. 
V
    Опции темы
peektoseen
  Дата 12.4.2013, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Добрый день, господа.
Столкнулся с проблемой.
Написал скриптик:
Код

use warnings;
use strict;
use LWP::UserAgent;

my $url = "https://issa.life.com.by/";
my $code="25";
my $password = "pa55w0rd";
my $phone = "xx01760";
my $ua = LWP::UserAgent->new;
$ua->cookie_jar({});

my $request = HTTP::Request->new(POST=>$url);
$request->content_type('application/x-www-form-urlencoded');
$request->content("Code=$code&Phone=$phone&Password=$password");
my $res = $ua->request($request);
....

На таком хосте:
Код

~# cat /etc/debian_version
6.0.5
~# perl -MLWP -e 'print LWP->Version()."\n";'
6.04

Все отрабатывает нормально.

А на другом:
Код

~ # cat /etc/SuSE-release
openSUSE 12.1 (i586)
VERSION = 12.1
CODENAME = Asparagus

~ # perl -MLWP -e 'print LWP->Version()."\n";'
6.05


Замолкает на my $res = $ua->request($request); просто замолкает, ни таймаута, ни ответа. 
Кто-нибудь сталкивался? 
Что может быть?
PM MAIL   Вверх
Pfailed
Дата 12.4.2013, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 39
LWP::Protocol::https установлен?
Попробуйте LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });



--------------------
I'm on CPAN
I'm on github
PM MAIL   Вверх
peektoseen
Дата 12.4.2013, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Pfailed @  12.4.2013,  10:21 Найти цитируемый пост)
LWP::Protocol::https установлен?

Да, есть.
LWP::Protocol::https is up to date (6.03).

Цитата(Pfailed @  12.4.2013,  10:21 Найти цитируемый пост)
Попробуйте LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });

Тоже самое. Так пробовал и до этого, только делал через $ua->ssl_opts(verify_hostname =>0).
Еще делал $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; результат тот-же.
PM MAIL   Вверх
Pfailed
Дата 12.4.2013, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 39
Запустите через strace свой скрипт и сюда вывод его.
Код

strace perl test.pl >output.txt 2>&1


Это сообщение отредактировал(а) Pfailed - 12.4.2013, 11:46


--------------------
I'm on CPAN
I'm on github
PM MAIL   Вверх
peektoseen
Дата 12.4.2013, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Pfailed @ 12.4.2013,  11:46)
Запустите через strace свой скрипт и сюда вывод его.
Код

strace perl test.pl >output.txt 2>&1

Сделал strace. На первый взгляд не понял, на чем затык.
output.txt во вложении.
сейчас скрипт имеет вид:
Код

#!/usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent 6;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $url = "https://issa.life.com.by/";
my $code="xx";
my $password = "pa55word";
my $phone = "xx01760";
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
$ua->cookie_jar({});

my $request = HTTP::Request->new(POST=>$url);
$request->content_type('application/x-www-form-urlencoded');
$request->content("Code=$code&Phone=$phone&Password=$password");


print "one\n";
my $res = $ua->request($request);
print "two\n";

Как я уже говорил, затык на [19]:my $res = $ua->request($request). Перед ним вижу вывод, после него уже нет.

Это сообщение отредактировал(а) peektoseen - 12.4.2013, 13:06

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  output.txt 154,13 Kb
PM MAIL   Вверх
Pfailed
Дата 12.4.2013, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 39
Похоже на эту проблему: https://rt.cpan.org/Public/Bug/Display.html?id=81237


--------------------
I'm on CPAN
I'm on github
PM MAIL   Вверх
peektoseen
Дата 12.4.2013, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Pfailed @ 12.4.2013,  13:22)
Похоже на эту проблему: https://rt.cpan.org/Public/Bug/Display.html?id=81237

Спасибо за помощь. 
Действительно, оказалось оно.
Проблему решил даунгрейдом Net::HTTP до 6.03.
Ещё раз спасибо.
PM MAIL   Вверх
Pfailed
Дата 12.4.2013, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 39
А почему не апгрейдом до 6.06?


--------------------
I'm on CPAN
I'm on github
PM MAIL   Вверх
peektoseen
Дата 12.4.2013, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Pfailed @ 12.4.2013,  14:17)
А почему не апгрейдом до 6.06?

Просто выбор пал на даунгрейд smile
Сейчас поставил 6.06, с ним тоже все ок.

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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