Работа с IMAP сервером на перле
 

День добрый!
Нет ли у кого примеров скриптов работы с IMAP сервером (клиентская часть).
Желательно через модуль Net::IMAP.

а что именно не работает, из того, что есть в документации и в теле самой библиотеки ?

Если честно то я не могу разобраться в спановской документации, там написано что это альфа версия.... и тут два варианта
либо я торможу
либо дока кривая.....
поэтому и хочу взять рабочий пример и посмотреть...
готовых скриптов я пока не нашел...

Вот взял с www.activestate.com модуль Net::IMAP::Simple

Внутри документации пример:

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 ) {

if ( $server->seen( $msg ) {
print "This message has been read before...\n"
}

# 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();

Кроме документации посмотрел сам модуль на наличие методов. Из полезных и не отраженных в примере нашел delete.

p.s. модуль хочет IO::Socket и IO::File

Спасиб -)
Это не тот модуль который я хотел, но я буду использовать его, так как он документирован лучше.

Тут еще такой вопрос возник, дело в том что на серваке используется метод авторизации MD5.
Не кто не подскажет как указать это клиенту?
там все замешано с модулем Authen::SASL
и функцией $imap->authenticate("CRAM-MD5",$coderef);