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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с модулем IO::Socket::SSL, Проблема с модулем IO::Socket::SSL 
:(
    Опции темы
itrex111
Дата 1.2.2013, 02:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Добрый день!
Возникла проблемка после 
cpan upgrade
Операционка ubuntu 12.04 LTS
perl 5.14.2

При запуске простого скрипта 

Код

#! /usr/bin/perl
#   auto.pl

use IO::Socket::SSL qw(debug3);

$host = "www.google.com:https";
$sock = IO::Socket::SSL->new($host) ;

if($sock){

     $reg = "POST / HTTP/1.1\r\n".
              "Host: www.google.com\r\n".
              "Accept-encoding: */*\r\n".
              "Accept: text/html\r\n".
              "User-Agent: Mozilla/9.0\r\n".
              "Connection: keep-alive\r\n\r\n";
   print $sock $reg;
     my $data;
     while(read $socket, my $buffer, 128)
     {
         $data .= $buffer;
     }
  }

close $sock;

 print $data;


Мне выдаётся ошибка

*******************************************************************
 Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
 is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER
 together with SSL_ca_file|SSL_ca_path for verification.
 If you really don't want to verify the certificate and keep the
 connection open to Man-In-The-Middle attacks please set
 SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************
  at ./auto.pl line 7.

Ругается вот на эту строку  (line №7)
$sock = IO::Socket::SSL->new($host) ;

Подскажите как побороть, если кто сталкивался?

Это сообщение отредактировал(а) itrex111 - 1.2.2013, 02:50
PM MAIL WWW   Вверх
arto
Дата 1.2.2013, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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



# perl -MIO::Socket::SSL -e '$sock = new IO::Socket::SSL (''PeerAddr'' => $ARGV[0], ''PeerPort'' => "https", ''SSL_verify_mode'' => SSL_VERIFY_NONE) or die $!; $sock->print("HEAD / HTTP/1.1\r\nHost: $ARGV[0]\r\n\r\n"); print while (<$sock>)' www.google.com
HTTP/1.1 302 Found
Location: https://www.google.fi/
Cache-Control: private
Content-Type: text/html; charset=UTF-8
Set-Cookie: PREF=ID=5e8ed5754c204ddd:FF=0:TM=1359700649:LM=1359700649:S=FlAJXyMcvrq_wIDz; expires=Sun, 01-Feb-2015 06:37:29 GMT; path=/; domain=.google.com
Set-Cookie: NID=67=uZ5gluNQVtTt6V764Xj21juVPEDppiJpXma5mf4PU8p06cwn8Cs-tEW6YBf5oDMzj2tioRDdetSapMnBJcfVEnqfamirgNDLOiRN6qOOUhtCCkBZT26a7AuB-uzl8_h7; expires=Sat, 03-Aug-2013 06:37:29 GMT; path=/; domain=.google.com; HttpOnly
P3P: CP="This is not a P3P policy! See http://www.google.com/support/accounts/bin...p;answer=151657 for more info."
Date: Fri, 01 Feb 2013 06:37:29 GMT
Server: gws
Content-Length: 219
X-XSS-Protection: 1; mode=block
X-Frame-Options: SAMEORIGIN
^C
#
PM MAIL ICQ   Вверх
itrex111
Дата 1.2.2013, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



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


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

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


 




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


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

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