исправление заголовков

[Maxim Dounin]

Hello!

On Thu, Nov 26, 2009 at 04:55:38PM +0600, Denis F. Latypoff wrote:

> Hello Igor,
> 
> Thursday, November 26, 2009, 4:43:29 PM, you wrote:
> 
> > Может кто-нибудь подсказать, что из перлового многообразия модулей
> > умеет корректно преобразовывать заголовки ?
> 
> > Вот это:
> 
> > # $Id: Encode.pm,v 2.35 2009/07/13 00:49:38 dankogai Exp $
> > use Encode qw/encode decode/;
> 
> > sub repack_utf_hdr($) {
> >     my($hdr) = shift;
> 
> -     return encode('MIME-Header', decode('MIME-Header', $hdr));
> +     return encode('MIME-Header', encode('UTF-8', decode('MIME-Header', $hdr)));

Это не поможет ему производить mime-слова допустимой длины, увы.

Maxim Dounin