бортовий журнал машини часу

XChat kick script

07 січень 2008 at 3:20 PM

Вже кілька років підряд в irc в якому деколи зависаю заходить бот TUNIX типу пошуковий топік-шпійон. Колись ми змагались хто його швидше кікне. Зараз відроджую традицію :-)

простий перловий кік-скріпт для XChat

#!/usr/bin/perl 

IRC::register("TUNIX_KICKER By GSV", "0.1", "", "");

IRC::add_message_handler("JOIN", "join_handler");

IRC::print "TUNIX bot kicker loaded\n";

sub join_handler {
    $irc_message = shift(@_);
    $irc_message =~ /:(.*)!(\S+) JOIN :(.*)/i;
    $irc_nick =  lc $1;
    $irc_ident=$2;
    $irc_target=$3;
    $message = $4;
    if ($irc_nick =~ /tunix/){
        IRC::command("/kick $irc_nick");
    }
    return 0;
}