.irssi/scripts/cafuego.pl

   1 use strict;
   2 use vars qw($VERSION %IRSSI);
   3
   4 $VERSION = "1.00";
   5 %IRSSI = (
   6         authors     => 'Cafuego',
   7         contact     => 'irssi\@cafuego.net',
   8         name        => 'cafuego',
   9         description => 'Filters BitchX quit messages.',
  10         license     => 'GPL',
  11         url         => '',
  12         changed     => '$Id: cafuego.pl,v 1.1 2002/10/09 07:11:58 cafuego Exp cafuego $ ',
  13 );
  14
  15 my $bx_count = 0;
  16
  17 sub scan_bitchx {
  18   my ($server,$msg,$nick,$address,$target) = @_;
  19   if ($msg =~ /BitchX/ || $msg =~ /bitchx/ || $msg =~ /BX/ ) {
  20     Irssi::print("Stopped moron BitchX message from ".$nick." [".++$bx_count."]");
  21     Irssi::signal_stop();
  22   }
  23 }
  24
  25 Irssi::signal_add("event away", "scan_bitchx");
  26 Irssi::signal_add("event part", "scan_bitchx");
  27 Irssi::signal_add("event quit", "scan_bitchx");