1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

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

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

  1. admin

    admin Well-Known Member

    Репутация:
    0
    Регистрация:
    8 авг 2003
    Сообщения:
    2.755
    Симпатии:
    1
    Смотрите. Написал плагин на перле для 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;
    }
    }
    по манулу эта хрень должна работать везде, а работает в окне привата только, в чем я ошибся?
     
Загрузка...

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