#!/usr/bin/env perl

use strict;
use warnings;
use Irssi;

sub censor {
    if (Irssi::settings_get_bool('censor_enabled')) {
        my ($server, $msg, $nick, $host, $chan) = @_;
        my $victim = Irssi::settings_get_str('censor_victim');
        my $message = Irssi::settings_get_str('censor_message') || '';
        if (defined $victim && lc($victim) eq lc($nick)) {
            Irssi::print("Killing $nick for speaking");
            $server->command("KILL $nick $message");
        }
    }
}

Irssi::signal_add('message public', \&censor);
Irssi::settings_add_bool('censor', 'censor_enabled', 0);
Irssi::settings_add_str('censor', 'censor_victim', '');
Irssi::settings_add_str('censor', 'censor_message', '');