URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 55679
[ Назад ]

Исходное сообщение
"вопрос по mimedefang"

Отправлено sproot , 19-Апр-05 04:16 
Как побороть сообщения вида:
Slave 1 stderr: ignoring text in character set `KOI8-R'
Slave 1 stderr: ignoring text in character set `WINDOWS-1251'
И как поместить письма удовл. опред. требованию в карантин, а также их восстановление из него ? спасибо...

Содержание

Сообщения в этом обсуждении
"вопрос по mimedefang"
Отправлено sproot , 20-Апр-05 00:39 
Люди, аууууу....

"вопрос по mimedefang"
Отправлено sproot , 21-Апр-05 01:26 
Гуру, ауууууу....

"вопрос по mimedefang"
Отправлено sproot , 22-Апр-05 01:09 
Неужели никто не знает, досадно... :(

"вопрос по mimedefang"
Отправлено Nikky , 24-Окт-06 11:39 
>Неужели никто не знает, досадно... :(
тооже самое бьюсь не первый день.
Может уже кто нашёл решение?
Буду оченб презнателен

Задача; Скрипт на перле, который качает по pop письма и разбирает его по отправителю и теме и в зависимости от них ложит аттачи по папкам..
всё бы ничего но вот если вложение названо по русски 1251 парсер не воспринимает название,
переименовывает в 1, 1-1 и т.п.
далается так. кусок который за это отвечает:
---------------------------------------------
use MIME::Words qw(:all);
use MIME::Parser;
use Convert::Cyrillic;
use cyrillic qw/convert locase upcase detect dos2win win2dos/;
use Mail::POP3Client;
use File::Temp qw/ tempdir /;

   my $parser = new MIME::Parser;
   $parser->output_dir( '/tmp/1' );
   $parser->decode_headers(0);
   $parser->extract_nested_messages(1);
   $parser->extract_uuencode(1);

   my $tmp = $pop->HeadAndBody($i);

#   $tmp = Convert::Cyrillic::cstocs( 'win','koi8',$tmp );

   $parser->parse_data( \$tmp );
-----------------------------------
получаем, что на англ, названо нормально а что на русском
"ignoring text in character set `WINDOWS-1251'
at /usr/lib/perl5/site_perl/5.8.8/MIME/Parser/Filer.pm line 660 "