#
# $Id: de-cowgar.pl,v 1.3 2005/09/30 18:13:16 nugget Exp $
#
# <Sarilka> Would it be possible to get a filter on TheCougar where every
#           time he says "mysql," it just turns the text into
#           'I hate mysql" over and over?
#

use Irssi;
use Irssi::Irc;

my @lusernicks = ('Decibel','TheCougar','DeciBull');

my $cvsid = '$Id: de-cowgar.pl,v 1.3 2005/09/30 18:13:16 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

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

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

    if($nick eq $key) {
      if($text =~ /(my[a-zA-Z]*sql|mysqueal)/i) {
        $text = 'I hate MySQL.';
        Irssi::window_find_item($target)->print("<$nick> $text", MSGLEVEL_PUBLIC);
        Irssi::signal_stop();
      }
    }
  }
}

Irssi::signal_add("event privmsg", "decowgar");
Irssi::print("relay handler v$version loaded...");