Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Проблема с модулем IO::Socket::SSL


Автор: itrex111 1.2.2013, 02:48
Добрый день!
Возникла проблемка после 
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) ;

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

Автор: arto 1.2.2013, 09:38
# 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/answer.py?hl=en&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
#

Автор: itrex111 1.2.2013, 10:08
Спасибо большое помогло!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)