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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> https (ssl), Использование https (ssl) в perl 
:(
    Опции темы
nitr
Дата 10.2.2006, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Доброе время суток!
Проблемка возникает при использовании LWP с предустановленным Crypt::SSLeay smile
Выводит ошибку:
500 Can't locate object method "new" via package "LWP::Protocol::https::Socket"
Если вдруг Crypt::SSLeay не установлен, то должны быть другая ошибка, все тесты проходят... Поможете разобраться?


--------------------
PM   Вверх
BlackLFL
Дата 10.2.2006, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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



код покажите
PM WWW   Вверх
sharq
Дата 11.2.2006, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

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



Читай внимательно документацию по модулю!
Можещь посмотреть ее здесь.

smile


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
nitr
Дата 12.2.2006, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Вот код, думаю простейший! Доки читал, я б не брался за модуль не зная его smile И ещё возникает в перлах выше 5.004, и в любой версии при обновлении LWP smile
Код

#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my @ns_headers = (
  'User-Agent' => 'Mozilla/5.0',
  'Accept-Charset' => 'windows-1251',
  'Accept-Language' => 'ru-Ru',
);
my $ua = LWP::UserAgent->new;
$ua->timeout(20);
my $response = $ua->post('.....',
                     [
                     client => '...',
                     login => '...',
                     password => '....'
                     ], @ns_headers
                     );
print $response->as_string;


Это сообщение отредактировал(а) nitr - 12.2.2006, 20:47


--------------------
PM   Вверх
nitr
Дата 13.2.2006, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Ту проблему решил...
Вот новая smile
Такой вот контент
Код


HTTP/0.9 200 Assumed OK
Client-Date: Mon, 13 Feb 2006 09:43:17 GMT
Client-Peer: xxx:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=RU/ST=Russia/L=Moscow/O=xxx/CN=xxx-CA
Client-SSL-Cert-Subject: /C=RU/ST=Russia/L=Moscow/O=xxx/CN=xxx.ru

Client-SSL-Cipher: DHE-RSA-AES256-SHA

↨♥☺☻░3╚√├tхF┬cV ╨5─;5;ЛГХ╬Sа
Y]j│^YШм?еVXыШVukhВC5☺=є{У╟EVЖ!┴Я├7╖НХЄп╝°ЗШ╬/▄O╔_y -;X⌂HЗg@Лm8☻~ЩШ╧╩┌  8╞╔‼┼@H╤




--------------------
PM   Вверх
BlackLFL
Дата 14.2.2006, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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



Вы меня извините, но я вопроса не вижу smile
PM WWW   Вверх
nitr
Дата 14.2.2006, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Проблемка возникает при использовании LWP с предустановленным Crypt::SSLeay и OpenSSL... тема такова...
Решаю здесь проблемы работы, с которыми встречаюсь по мере тестирования smile Вопрос = подконтекст топика ;)
В общем проблемы возникающие при работе с протоколом HTTPS =)


--------------------
PM   Вверх
nitr
Дата 14.2.2006, 10:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Код

HTTP/0.9 200 Assumed OK
Client-Date: Mon, 13 Feb 2006 09:43:17 GMT
Client-Peer: xxx:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=RU/ST=Russia/L=Moscow/O=xxx/CN=xxx-CA
Client-SSL-Cert-Subject: /C=RU/ST=Russia/L=Moscow/O=xxx/CN=xxx.ru
Client-SSL-Cipher: DHE-RSA-AES256-SHA
↨♥☺☻░3╚√├tхF┬cV ╨5─;5;ЛГХ╬Sа
Y]j│^YШм?еVXыШVukhВC5☺=є{У╟EVЖ!┴Я├7╖НХЄп╝°ЗШ╬/▄O╔_y -;X⌂HЗg@Лm8☻~ЩШ╧╩┌  8╞╔‼┼@H╤
...
...


Кстати, это может происходить только у вас, а к примеру у друзей работать... В чём ошибка никто не поможет? Использовались Crypt::SSLeay, LWP, OpenSSL. Может какой софт мешает?


--------------------
PM   Вверх
BlackLFL
Дата 14.2.2006, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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



nitr, давйте подругому, что Вы хотите сделать?

p.s. вы под windows?
PM WWW   Вверх
nitr
Дата 14.2.2006, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



BlackLFL, не понял как по-другому? smile Я и там и там, ВинХР и фряха. Не вижу разницы... А ты про софт предустановленый.. Я хочу работать с https smile , а точнее просто LWP для запросов юзаю, что получить некий ответ от серва.


--------------------
PM   Вверх
BlackLFL
Дата 14.2.2006, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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



Код

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # For debuging
use LWP;

my $ua=LWP::UserAgent->new();
$ua->timeout(5);
$ua->agent("Mozilla/5.0");
$ua->protocols_allowed( [ 'http', 'https'] ); 
my $url="https://xxx.ru/";
my $document=$ua->request(HTTP::Request->new(GET => $url));

print "Content-type: text/html\n\n";

print "<strong>Код:</strong> ". $document->code() ."<br>";
print "<strong>Status_line:</strong> ". $document->status_line ."<br>";
print "<strong>Заголовок полностью:</strong> ". $document->headers->as_string() ."<br>";
print "<strong>Тип документа:</strong> ". $document->content_type ."<br><br>";
print "<strong>Тело документа:</strong>". $document->content;
1;


p.s. есть ли у тебя Crypt::SSleay для PPM? или ты компилировал под WinXP?
PM WWW   Вверх
nitr
Дата 14.2.2006, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Компилировал... И я уже сказал, "тело документа" двоичный код. Почемй не подскажешь smile ?


--------------------
PM   Вверх
BlackLFL
Дата 14.2.2006, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

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



Цитата

И я уже сказал, "тело документа" двоичный код

Вот он вопрос, наконец-то!

Пообщался с сетивиками, говорят, такое может происходить, когда несовпали ключи, который отослан, и который должен быть ...
Более ничего пока сказать не могу smile

p.s. какая версия Crypt::SSleay у тебя, я не могу его под win никак скомпилировать smile
Я скачивал с CPAN версию 0.51, 0.49 ...

Это сообщение отредактировал(а) BlackLFL - 14.2.2006, 14:27
PM WWW   Вверх
sharq
Дата 14.2.2006, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

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



nitr, ты внимательно прочитал раздел INSTALL, выполнил все действия?


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
nitr
Дата 14.2.2006, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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



Канечна smile Я ж сказал... может из-за кого-нить софта такое может происходить? smile


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


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

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


 




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


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

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