VPF::работа с imap - Форум программистов

MZ412

Дата 9.8.2010, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

Хочется готовый модуль для работы с IMAP. Пока что ничего не нашёл.

Нужно удалённо залогиниться и с клиентского хоста положить сообщение (со всеми заголовками) в ящик.

IMAP сервер - cyrus.

Возможно кто то озадачивался такой задачей...

MZ412

Дата 9.8.2010, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

Как всегда всё нашёл сам. Примерно так:

Код


#!/usr/bin/perl -w

use warnings;
use strict;

use Mail::IMAPClient;
  
my $imap = Mail::IMAPClient->new(
        Server   => 'localhost',
        Port     => 993,
        User     => 'login',
        Password => '***',
        Ssl      => 1,
) or die "KILL!!!";

my $folder = "INBOX";
my $filename = "/path/to/message";
my $text;

$imap->select($folder) or die "Could not select: $@\n";

open (FD, $filename);
while (<FD>)
{
        $text = $text . $_;
}
close (FD);

my $uid = $imap->append( $folder, $text )
        or die "Could not append: ", $imap->LastError;

$imap->logout or die "Logout error: ", $imap->LastError, "\n";

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »