2 use vars qw($VERSION %IRSSI);
7 contact => 'irssi\@cafuego.net',
9 description => 'Filters BitchX quit messages.',
12 changed => '$Id: cafuego.pl,v 1.1 2002/10/09 07:11:58 cafuego Exp cafuego $ ',
18 my ($server,$msg,$nick,$address,$target) = @_;
19 if ($msg =~ /BitchX/ || $msg =~ /bitchx/ || $msg =~ /BX/ || $msg =~ /Bersirc/i) {
20 Irssi::print("Stopped moron BitchX message from ".$nick." [".++$bx_count."]");
25 Irssi::signal_add("event away", "scan_bitchx");
26 Irssi::signal_add("event part", "scan_bitchx");
27 Irssi::signal_add("event quit", "scan_bitchx");