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

admin

Well-known member
08.08.2003
2 749
0
#1
Смотрите. Написал плагин на перле для x-chat
Код:
#/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;
}
}
по манулу эта хрень должна работать везде, а работает в окне привата только, в чем я ошибся?