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

Исходное сообщение
"IMAPUtf7 глючный ?"

Отправлено Rom1kz , 19-Июл-06 16:46 
Слово Ярослав
UTF7            +BC8EQAQ+BEEEOwQwBDI-
Правильно       &BC8EQAQ+BEEEOwQwBDI-
IMAPUtf7(2.01)  +BC8EQAQ&BEEEOwQwBDI-

Чем ещё в перле можно конвертить в/из imap utf ?


Содержание

Сообщения в этом обсуждении
"IMAPUtf7 глючный ?"
Отправлено Rom1kz , 19-Июл-06 22:54 
в соответствующем файле класса вносим изменения:

sub _imap_utf7_decode {
        my ($s) = @_;

        $s =~ s/\+/PLUSPLACEHOLDER/g;
        $s =~ s/&([^,&\-]*),([^,\-&]*)\-/&$1\/$2\-/g;
        $s =~ s/&(?!\-)/\+/g;
        $s =~ s/&\-/&/g;
        $s =~ s/w-\ /w\ /g;
        $s =~ s/PLUSPLACEHOLDER/\+/g;

        return $s;
}

sub _imap_utf7_encode {
        my ($s) = @_;

        $s =~ s/\+\-/PLUSPLACEHOLDER/g;
        $s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g;
        $s =~ s/&/&\-/g;
        $s =~ s/\+([^\-]+)?\-/&$1\-/g;
        $s =~ s/PLUSPLACEHOLDER/+/g;

        return $s;
}

на случай, если кто-то тоже столкнётся