|
Posted by Greg G on June 1, 2005, 1:45 pm
Please log in for more thread options
I'm trying to get Mail::IMAPClient to work via SSL. I'm running into a
problem. Here's the output:
# ./imap_test.pl
SSL OK? 1
SSL says: * OK mailtest Sendmail Server IMAP4rev1
(2.1.5/smserver-2-1-5-build-1174)
Using Mail::IMAPClient version 2.2.9 and perl version 5.8.6 (5.008006)
'0' '' |1|
Set State : 1
Sending literal string in two parts: 1 Login "ggtest103z@mydomain.net"
then: abcdef
Sending: 1 Login "XXXXXX"
Sent 38 bytes
Can't call method "can_read" on an undefined value at
/usr/local/lib/perl5/site_perl/5.8.6/Mail/IMAPClient.pm line 1583.
#
#
then: abcdef
Sending: 1 Login "XXXXXX"
Sent 38 bytes
Can't call method "can_read" on an undefined value at
/usr/local/lib/perl5/site_perl/5.8.6/Mail/IMAPClient.pm line 1583.
#
---------------------------
Here's the code:
-------------------------
#!/usr/local/bin/perl -w
use IO::Socket::SSL;
use Mail::IMAPClient;
my $ssl = IO::Socket::SSL->new (Proto=>'tcp',
#SSL_verify_mod=>0x00,
PeerAddr=>"mailtest.mydomain.net",
PeerPort=>993);
print "SSL OK? " . (defined $ssl) . "\n";
print "SSL says: " . <$ssl> . "\n";
$imap = Mail::IMAPClient->new(Server => "mailtest.mydomain.net",
Socket => $ssl,
Timeout=>5,
User => "ggtest103z\@mydomain.net",
Password => "abcdef",
Debug => 1,
);
print STDERR " \'$@\' \'$!\' |" . (defined $imap) . "|\n";
$imap->State ($imap->Connected);
print "Set State : " . $imap->State . "\n";
$imap->login();
print "Logged in $!\n";
exit 0;
--------------------
Any idea what's happening here? I've tested the mail server and it
works fine via SSL.
Thanks.
-Greg G
| 
XML Sitemap