Не удается подключиться с помощью PERL к почтовому ящику на gmail.com через POP3.
Проблема в том, что pop.gmail.com требует подключения через SSL.
Установлено:
1) PERL 5.8 отсюда: http://activestate.com/products/activeperl/
2) Модуль Mail::POP3Client 2.17 http://ppm4.activestate.com/MSWin32-x86/5.8/820/
3) Модуль Net::SSLeay 1.30 отсюда: http://theoryx5.uwinnipeg.ca/ppms/
4) Модуль IO::Socket::SSL 1.01 отсюда: http://theoryx5.uwinnipeg.ca/ppms/
5) OpenSSL v0.9.8e отсюда: http://www.slproweb.com/products/Win32OpenSSL.html
Модули устанавливались с помощью команды "ppm gui".
В результате подключиться к почтовому ящику так и не удалось. Проверял то же самое на ящике без SSL -- все работает нормально.
Программа:
==================================================
use Mail::POP3Client;
use strict;
my $pop = new Mail::POP3Client( USER => 'ru-board@gmail.com',
PASSWORD => 'password',
HOST => "pop.gmail.com",
USESSL => 1,
);
print $pop->Message(), "\n";
$pop->Close();
==================================================
Сообщение об ошибке:
==================================================
Could not load IO::Socket::SSL: Your vendor has not defined SSLeay macro randomize at C:/Perl/site/lib/IO/Socket/SSL.pm line 55
BEGIN failed--compilation aborted at C:/Perl/site/lib/IO/Socket/SSL.pm line 57.
Compilation failed in require at C:/Perl/site/lib/Mail/POP3Client.pm line 373.
==================================================
Что я делаю не так?
P.S. Windows XP
Проблема в том, что pop.gmail.com требует подключения через SSL.
Установлено:
1) PERL 5.8 отсюда: http://activestate.com/products/activeperl/
2) Модуль Mail::POP3Client 2.17 http://ppm4.activestate.com/MSWin32-x86/5.8/820/
3) Модуль Net::SSLeay 1.30 отсюда: http://theoryx5.uwinnipeg.ca/ppms/
4) Модуль IO::Socket::SSL 1.01 отсюда: http://theoryx5.uwinnipeg.ca/ppms/
5) OpenSSL v0.9.8e отсюда: http://www.slproweb.com/products/Win32OpenSSL.html
Модули устанавливались с помощью команды "ppm gui".
В результате подключиться к почтовому ящику так и не удалось. Проверял то же самое на ящике без SSL -- все работает нормально.
Программа:
==================================================
use Mail::POP3Client;
use strict;
my $pop = new Mail::POP3Client( USER => 'ru-board@gmail.com',
PASSWORD => 'password',
HOST => "pop.gmail.com",
USESSL => 1,
);
print $pop->Message(), "\n";
$pop->Close();
==================================================
Сообщение об ошибке:
==================================================
Could not load IO::Socket::SSL: Your vendor has not defined SSLeay macro randomize at C:/Perl/site/lib/IO/Socket/SSL.pm line 55
BEGIN failed--compilation aborted at C:/Perl/site/lib/IO/Socket/SSL.pm line 57.
Compilation failed in require at C:/Perl/site/lib/Mail/POP3Client.pm line 373.
==================================================
Что я делаю не так?
P.S. Windows XP