This machine mirrors various open-source projects.
20 Gbit/s uplink.
If there are any issues or you want another project mirrored, please contact
mirror-service -=AT=- netcologne DOT de !
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).