ru.unix.bsd

 
 - RU.UNIX.BSD ------------------------------------------------------------------
 From : Serge Matveev                        2:5030/182     21 Nov 2001  23:26:22
 To : Serg Lakhno
 Subject : Gaim
 -------------------------------------------------------------------------------- 
 

 
 21 Nov 01 14:15, Serg Lakhno wrote to andy@sirius.net.ru:
 
  >>>    Штука собралась и запускается, плагин ставится.
  a>> Можно узнать, как Вы это проделали?
  SL>   Выкачал с http://haru.wom.ru/icq2gaim.html gaim-0.49 и патчи оттуда
 
     [секс поскипан]
 
  SL>   Все слинковалось, mv recode.so /usr/local/lib/gaim,- теперь плугин
  SL> загрузился.
 
     А зачем нужен этот плугин если вся перекодировка лечится одним маленьким
 perl-скриптом, положеным в ~/.gaim/?
 
     Я не в смысле наезда, а просто вдруг кто подскажет чем этот вариант хуже... 
 А то столько народу с этим бьются...
 
     Вот скрипт (tr'ы внизу пишутся в одну строчку):
 === Cut ===
 #!/usr/bin/perl
 # Copyright Evgeny Kazanov 2001
 # You can use this plagin under terms and conditions of GPL
 
 #
 #my $koi='ЁЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю';
 #my $win='ШижсйемцьыгузтшбюопнкдфщъвялхрэачшИЖСЙЕМЦЬЫГУЗТШБЮОПHКДФЩЪВЯЛХРЭАЧ';
 #
 
 GAIM::register( "Recoder KOI - Win", "0.0.1", "goodbye", "" );
 
 GAIM::add_event_handler( "event_im_recv", "on_im_receiving" );
 GAIM::add_event_handler( "event_im_send", "on_im_send" );
 
 sub goodbye {
 }
 
 sub on_im_receiving {
     ( $conn_ind, $who_uin, $msg ) = @_;
     $translated = win_koi($msg);
     GAIM::write_to_conv( $who_uin, 1, "$translated", "$who_uin" );
     return (1);
 }
 
 sub on_im_send {
     ( $conn_ind, $who_uin, $msg ) = @_;
     $translated = koi_win($msg);
     GAIM::serv_send_im( $conn_ind, $who_uin, $translated, 0 );
     GAIM::write_to_conv( $who_uin, 0, "$msg", "$who_uin" );
     return (1);
 }
 
 sub koi_win {
     local $_ = shift;
 tr/ЁЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю/Шижсйемць 
 ыгузтшбюопнкдфщъвялхрэачшИЖСЙЕМЦЬЫГУЗТШБЮОПHКДФЩЪВЯЛХРЭАЧ/
       if ( defined($_) );
     return $_;
 }
 
 sub win_koi {
     local $_ = shift;
 tr/ШижсйемцьыгузтшбюопнкдфщъвялхрэачшИЖСЙЕМЦЬЫГУЗТШБЮОПHКДФЩЪВЯЛХРЭАЧ/ЁЙЦУКЕHГШ 
 ЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮёйцукенгшщзхъфывапролджэячсмитьбю/
       if ( defined($_) );
     return $_;
 }
 
 === Cut ===
 
         serge@matveev.spb.ru                       Serge Matveev & ...
         ICQ 3575357
 
  * Origin: После нас пришло новое поколение и выбрало Pepsi. (2:5030/182)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: Gaim   Vladimir Bormotov   17 Nov 2001 23:45:13   Gaim   Serg Lakhno   19 Nov 2001 16:44:11   Re: Gaim   Maxime Zakharov   20 Nov 2001 01:53:24   Gaim   Serg Lakhno   20 Nov 2001 20:48:58   Re: Gaim   Maxime Zakharov   21 Nov 2001 01:06:04   Re: Gaim   Andrey Y Kharchenko   21 Nov 2001 13:13:20   Gaim   Serg Lakhno   21 Nov 2001 15:15:54   Gaim   Serge Matveev   21 Nov 2001 23:26:22   Gaim   Serg Lakhno   23 Nov 2001 09:58:38   Re: Gaim   Vladimir Podgorny   23 Nov 2001 12:44:27   Re: Gaim   Evgueni Gavrilov   20 Nov 2001 13:42:30