The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
use Net::IMAP::Simple;
# open a connection to the IMAP server $server = new Net::IMAP::Simple( 'someserver' );
# login $server->login( 'someuser', 'somepassword' ); # select the desired folder $number_of_messages = $server->select( 'somefolder' );
# go through all the messages in the selected folder foreach $msg ( 1..$number_of_messages ) {
# get the message, returned as a reference to an array of lines $lines = $server->get( $msg );
# print it print @$lines;
# get the message, returned as a temporary file handle $fh = $server->getfh( $msg ); print <$fh>; close $fh;
}
# the list of all folders @folders = $server->mailboxes();
# create a folder $server->create_mailbox( 'newfolder' );
# rename a folder $server->rename_mailbox( 'newfolder', 'renamedfolder' );
# delete a folder $server->delete_mailbox( 'renamedfolder' );
# copy a message to another folder $server->copy( $self, $msg, 'renamedfolder' );
# close the connection $server->quit();
This module was only tested under Netscape IMAP4rev1 Service 3.6, so expect some problems with servers from other vendors (then again, if all of them are implementing the IMAP protocol, it should work - but we all know how it goes).
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.