#
# $Id: bottext.pl,v 1.9 2008/06/17 22:05:34 nugget Exp $
#
# This script makes irssi ignore bot activity and only trigger the
# "new channel activity" for actual traffic.
#

use Irssi;
use Irssi::Irc;

my @botnicks = ('ntook','dctievent','udevent','gigo','c996','minilink','redcoat','bot','questbot','ljbot','faevent','CIA-42');

my $cvsid = '$Id: bottext.pl,v 1.9 2008/06/17 22:05:34 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

sub debot {
  my ($server, $data, $nick, $address) = @_;
  my ($target, $text) = split(/ :/, $data, 2);

  for(my $i=0; $i<@botnicks; $i++) {
    my $key = $botnicks[$i];

    if($nick eq $key) {
      Irssi::window_find_item($target)->print("%c<$nick> $text", MSGLEVEL_CLIENTCRAP+MSGLEVEL_NO_ACT);
      Irssi::signal_stop();
    }
  }
}

sub debotact {
  my ($server, $text, $nick, $ident, $target) = @_;

  for(my $i=0; $i<@botnicks; $i++) {
    my $key = $botnicks[$i];

    if($nick eq $key) {
      Irssi::window_find_item($target)->print("%c<$nick $text>", MSGLEVEL_CLIENTCRAP+MSGLEVEL_NO_ACT);
      Irssi::signal_stop();
    }
  }
}

Irssi::signal_add("event privmsg", "debot");
Irssi::signal_add("message irc action", "debotact");
Irssi::print("bottext handler v$version loaded...");