плагин для X-chat

Тема в разделе "Perl программирование", создана пользователем admin, 26 ноя 2005.

  1. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Смотрите. Написал плагин на перле для x-chat
    Код (Text):
    #/usr/bin/perl -w
    #


    IRC::register("matugalnik", "0.1.2", "","",);
    IRC::print"Voices are loaded";
    IRC::add_message_handler("PRIVMSG", "ball_info");

    sub ball_info
    {
    my $line = shift(@_);
    ($blah, $nick, $host, $pm, $chan, $msg) = split (/ |!|:/, $line, 6);
    if($msg =~/:\!voice/) {
    IRC::command("/say $nick woff-wooooof");
    return 1;
    }
    }
    по манулу эта хрень должна работать везде, а работает в окне привата только, в чем я ошибся?
     
Загрузка...

Поделиться этой страницей