[sisyphus] dictd question

[Alexey Dyachenko]

On Thu, Nov 14, 2002 at 02:26:29PM +0300, Albert R. Valiev wrote:
> 
> В сообщении от 14 Ноябрь 2002 13:10 Alexander Bokovoy написал:
> > On Thu, Nov 14, 2002 at 10:12:49AM +0300, Albert R. Valiev wrote:
> > > Народ, кто-нить знает, можно ли заставить сервер dictd отдавать данные в
> > > кодировке cp1251 (сейчас отдает в utf-8) и, если можно, как это сделать?
> >
> > Вопрос: зачем? Не лучше ли настроить на стороне клиента?
> > Протокол DICT не содержит средств указания кодировки передаваемой
> > информации.
> 
> в таком случае кто-нить могет подсказать следующую вещь:
> 
> есть tcl скрипт. берет он строчку из dictd. выдает он ее таким способом:
> - --------------------------------------
>         if {[string length [string trim $text]] < 1} { return }
>         if {!$type} { putdcc $dest "[dictionary_dopre]$text" ; return }
>         switch -- $::dictionary_setting(rplmode) {
>                 "0" { putserv "PRIVMSG $dest :$text" }
> - -------------------------------------
> 
> так как я в tcl профан полный и разобраться пока никак не могу, вопрос - как 
> перекодировать содержимое переменной $text из utf8 в cp1251? если можно, 
> сразу с примером :)))

Я тут нарисовал небольшого dict клиента на tcl, работающего со словарями в
юникоде. Если надо -- пиши мылом, пришлю, посмотришь как делается
перекодировка.

--
Алексей Дьяченко

------------------
Get free mailbox 20 Mb at http://www.hotbox.ru