#
# $Id: de-smith.pl,v 1.6 2003/07/15 16:18:00 nugget Exp $
#
# This script de-lamifies RaYmAn's "smth" bullshit.
#

use Irssi;
use Irssi::Irc;

my @lusernicks = ('RaYmAn','^Tux^','peck','Joolz','JK');

my $cvsid = '$Id: de-smith.pl,v 1.6 2003/07/15 16:18:00 nugget Exp $';
my $version = '?';
if( $cvsid =~ /\$Id: [^ ]+ (\d+\.\d+)/ ) {
        $version = $1;
}

sub desmith {
  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 =~ /(smth|smthg)/) {
        $text =~ s/smth/something/gi;
        Irssi::window_find_item($target)->print("<$nick> $text", MSGLEVEL_PUBLIC);
        Irssi::signal_stop();
      }
    }
  }
}

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