forum.opennet.ru - "IMAPUtf7 глючный ?" (1)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"IMAPUtf7 глючный ?"

Форумы Программирование под UNIX (Public)
Вариант для распечатки		Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"IMAPUtf7 глючный ?"
Сообщение от Rom1kz (ok) on 19-Июл-06, 16:46
Слово Ярослав UTF7 +BC8EQAQ+BEEEOwQwBDI- Правильно &BC8EQAQ+BEEEOwQwBDI- IMAPUtf7(2.01) +BC8EQAQ&BEEEOwQwBDI- Чем ещё в перле можно конвертить в/из imap utf ?
Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх

Оглавление

Сообщения по теме [Сортировка по времени, UBB]

1. "IMAPUtf7 глючный ?"

Сообщение от Rom1kz (ok) on 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;
}
на случай, если кто-то тоже столкнётся

Правка | Высказать мнение | Ответить | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]

Партнёры:

Хостинг:

1. "IMAPUtf7 глючный ?"
Сообщение от Rom1kz (ok) on 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; } на случай, если кто-то тоже столкнётся
Правка \| Высказать мнение \| Ответить \| Cообщить модератору \| Наверх

Архив \| Удалить	Индекс форумов \| Темы \| Пред. тема \| След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 \| 2 \| 3 \| 4 \| 5 ] [Рекомендовать для помещения в FAQ]