|
Server is running Microsoft Exchange Server 2003.
#!/usr/bin/perl
use Authen::NTLM;
use IO::Socket::SSL;
use Mail::IMAPClient;
my $ssl=IO::Socket::SSL->new(
PeerAddr=>$server,
Proto=>"tcp",
PeerPort=>993,
Timeout=>30
) or die "$@";
my $imap=Mail::IMAPClient->new(
Socket=>$ssl,
Debug=>1
) or die "$@";
ntlm_domain($domain);
ntlm_user($user);
ntlm_password($passwd);
$imap->authenticate("NTLM",Authen::NTLM::ntlm);
exit;
When I run this script, I get the following output:
Started at Sun Jan 4 21:08:05 2009
Using Mail::IMAPClient version 3.12 on perl 5.008008
Read: * OK Microsoft Exchange Server 2003 IMAP4rev1 server version 6.5.7638.1 (exchange.springstkd.
+local) ready.
Sending: 1 AUTHENTICATE NTLM
Sent 21 bytes
Read: +
Can't use string ("TlRMTVNTUAABAAAAB7IAAAUABQAgAAAA") as a subroutine ref while "strict refs" in us
+e at /usr/lib/perl5/site_perl/5.8.8/Mail/IMAPClient.pm line 2585.
What am I doing wrong? |
