VPF::Почта и приложения - Форум программистов

FrenchCheese

Дата 13.11.2011, 10:17 (ссылка)

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

Загрузка ...

Новичок

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

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

есть рабочий клиент, забирает он почту и делает это нормально;)
появилась необходимость научить его забирать приложения к письмам
как это реализовать?
в RFC по pop3 ни слова об этом

dixoNICH

Дата 13.11.2011, 10:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

приложения? файлы что ли?

FrenchCheese

Дата 13.11.2011, 11:55 (ссылка)

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

Загрузка ...

Новичок

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

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

да, attachment что называется

dixoNICH

Дата 13.11.2011, 12:01 (ссылка)

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

Загрузка ...

Бывалый

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

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

rfc mime

Добавлено через 6 минут и 26 секунд
пример кода

Код


while($buf=~/Content-Disposition:\sattachment;\s(\n)?(\s+)?filename="(.*)"/g){ 
            my $filename = $3;
            open S, ">:raw", $filename;
            if($buf =~/X-Attachment-Id:\s\w+[\r\n]{4}([\w\r\n\=\+\/]+)/sg){
                my $file = $1;
                $file = decode_base64($file);
                print S "$file";
                close S;
            }
        }

FrenchCheese

Дата 13.11.2011, 12:12 (ссылка)

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

Загрузка ...

Новичок

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

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

dixoNICH, спасибо за листинг и инфу о RFC!

shamber

Дата 13.11.2011, 12:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

FrenchCheese, тут уже не одна тема с получением вложений поднималась, не поленитесь поищите. может велосипед не понадобиться.

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