irssi script

spoiler.pl

use strict;
use warnings;
use Irssi;

our $VERSION = '0.0.6283185307';
our %IRSSI = (
  authors     => 'def',
  contact     => 'def <def@lelantos.org>',
  name        => 'spoiler',
  description => 'Colorize lines of idiots with black on black text',
  license     => 'Public domain',
);

# /load spoiler.pl
# /set spoiler_nicks lamia
# /set -clear spoiler_nicks

my @spoiler_nicks;

sub message_public {
  my ($server, $msg, $nick, $address, $target) = @_;
  my $color = '';
  $color = "\0031,1" if (grep $_ eq $nick,  @spoiler_nicks);
  $server->command('/^format pubmsg {pubmsgnick $2 {pubnick $0}}' . $color . '$1');
}

sub setup_changed { @spoiler_nicks = split /\s+|,/, Irssi::settings_get_str('spoiler_nicks'); }

Irssi::signal_add('message public', 'message_public');
Irssi::signal_add_last('setup changed', 'setup_changed');
Irssi::settings_add_str('spoiler', 'spoiler_nicks' => '');

setup_changed();