Here-s my code: #!/usr/bin/perl -wI..
use Net::IMAP; my $Host="192.168.9.4";
my $imap = new Net::IMAP($Host, Debug => 1) or die("can't connect to $Host: $!\n");
$response = $imap->noop or die("noop failed"); print "noop returned: ", $response->status, "\n"; print "noop text: ", $response->text, "\n"; if ($imap->has_capability('namespace')) { $response = $imap->namespace or die("namespace command failed"); } else { warn("server doesn't implement namespace extension"); }
$response = $imap->logout or die "error sending logout: $!";
Here's what happens when I run it under strace:
[EMAIL PROTECTED]:~$ strace -f -F -e trace=network imap.getmail
socket(PF_INET, SOCK_STREAM, IPPROTO_TCP) = 3
connect(3, {sa_family=AF_INET, sin_port=htons(143), sin_addr=inet_addr("192.168.9.4")}, 16) = -1 EINPROGRESS (Operation now in progress)
connect(3, {sa_family=AF_INET, sin_port=htons(143), sin_addr=inet_addr("192.168.9.4")}, 16) = 0
<- Net::IMAP=HASH(0x81717a4) 19:29:05 [* OK ns Cyrus IMAP4 v2.1.16-IPv6-Debian-2.1.16-6 server ready]
can't connect to 192.168.9.4: Bad file descriptor
[EMAIL PROTECTED]:~$
I'm inclined to reportbug this, but I'd like to have it working. Any hints?
--
Cheers John
-- spambait [EMAIL PROTECTED] [EMAIL PROTECTED]
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]