use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

$VERSION = '1.4';

%IRSSI = (
	authors => 'Julien Danjou',
	contact => 'julien@danjou.info',
	name => 'Blah ignore',
	description => 'Replace words said by ignored people with blah',
	license => 'GPL',
	);

sub is_ignored
{
	my $n = shift;
	my @i = Irssi::ignores();
	foreach(@i)
	{
		return 1 if $n =~ /^$_->{mask}$/;
	}
	return 0;
}

sub blah_message
{
	my ($server, $data, $nick, $address) = @_;
	my ($target, $msg) = split(/ :/, $data,2);
	if(&is_ignored($nick) and Irssi::settings_get_bool('blah_replace'))
	{
		$msg = Irssi::settings_get_str('blah_string');
		Irssi::signal_continue($server, "$target :$msg", $nick."|blah", $address);
	}
}

Irssi::signal_add('event privmsg', 'blah_message');
Irssi::settings_add_bool('misc', 'blah_replace', 1);
Irssi::settings_add_str('misc', 'blah_string', 'blah blah blah');