Re: Mail::IMAPClient->new hangs in Windows

For Windows, try SSLv2; also, SSL_verify_none is the default, so why write it longhand?

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::SSL;
use Mail::IMAPClient;

my $client = Mail::IMAPClient->new(
    Server   => 'imap.gmail.com',
    Port     => 993,
    Ssl      =>  1,
    User     => 'whateverUser',
    Password => 'aG00dP455w0rd',
    Socket   => IO::Socket::SSL->new(       
        Proto    => 'tcp',
        PeerAddr => 'imap.gmail.com',
        PeerPort => '993',
        SSL_version => 'SSLv3',
        SSL_verify_mode => 0),
);

die $! unless print "Connected\n";
[download]

Updated: Fixed typo.

Comment on Re: Mail::IMAPClient->new hangs in Windows Download Code

Replies are listed 'Best First'.
Re^2: Mail::IMAPClient->new hangs in Windows by m0skit0 (Initiate) on Mar 26, 2013 at 19:22 UTC
Thanks for the reply. I already solved this. `sub connectGMail { my $socket = IO::Socket::SSL->new( PeerAddr => 'imap.gmail.com', PeerPort => 993, SSL_verify_mode => SSL_VERIFY_NONE ) or die "socket(): $@"; my $client = Mail::IMAPClient->new ( User => 'whateverUser', Password => 'aG00dP455w0rd', Ssl => 1, Socket => $socket ) or die "Cannot connect ($@)\n"; return $client; }` [download] And yes, I have to explicitly specify the verify mode, otherwise it spits a warning message.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Mail::IMAPClient->new hangs in Windows
by m0skit0 (Initiate) on Mar 26, 2013 at 19:22 UTC

sub connectGMail
{
    my $socket = IO::Socket::SSL->new(  
       PeerAddr => 'imap.gmail.com',  
       PeerPort => 993,
       SSL_verify_mode => SSL_VERIFY_NONE
    )  
    or die "socket(): $@";  
    
    my $client = Mail::IMAPClient->new
    (
        User     => 'whateverUser',
        Password => 'aG00dP455w0rd',
        Ssl      =>  1,
        Socket   => $socket
    )
    or die "Cannot connect     ($@)\n";
    return $client;
}
[download]

[reply]
[d/l]