#!/usr/bin/perl

use strict;
use Irssi;

use vars qw($VERSION %IRSSI);

$VERSION = "2.5.urmom";
%IRSSI = (
	authors		=> 'Blaine Fleming',
	contact		=> 'blaine@selfishman.net',
	name		=> 'redacted_ignore',
	description	=> 'script to redact messages from ignored users',
	license		=> 'BSD',
	url		=> 'http://selfishman.net',
	changed		=> '2010-01-03',
	changes		=> 'Dark hilight color; fire on moar stuffs'
);

Irssi::print("*****\n* $IRSSI{name} $VERSION loaded.");

Irssi::theme_register(['redact', "%K{msgnick \$0}" . "%K<redacted>"]);

sub do_urmom_in_public {
	my ($srv, $msg, $nick, $addr, $tgt) = @_;
	$srv->printformat($tgt, MSGLEVEL_PUBLIC, "redact", $nick)
		if $srv->ignore_check($nick, $addr, $tgt, $msg, MSGLEVEL_PUBLIC);
}

Irssi::print("redact public messages from ignored users");

Irssi::signal_add_first("message public", "do_urmom_in_public");
Irssi::signal_add_first("ctcp action", "do_urmom_in_public");