noxd.pl

use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
$VERSION = '0.01';
%IRSSI = (
    authors     => 'Mike Wolfe',
    contact     => 'bears@ccowmu.org',
    name        => 'noxd',
    description => 'deal with idiots',
    license     => 'GPLv3',
);

sub sig_printtext {
    my ($server, $data, $nick, $address) = @_;
    my ($target, $text) = split(/ :/, $data, 2);
    
    if ($text =~ m/x.?D+/i) {
      $text =~ s/x.?D+/I AM AN IDIOT/ig;
      Irssi::signal_stop();
      Irssi::signal_remove('event privmsg', 'sig_printtext');
      Irssi::signal_emit('event privmsg', $server, $target." :".$text, $nick, $address);
      Irssi::signal_add('event privmsg', 'sig_printtext');
    }
}

Irssi::signal_add('event privmsg', 'sig_printtext');