use strict;

use vars qw($VERSION %IRSSI);

$VERSION = "1.2";

%IRSSI = (

authors => "Roeland 'Trancer' Nieuwenhuis",

contact => "irssi\@trancer.nl",

name => "nickban",

description => "A simple nick banner. If it encounters a nick it bans its host",

license => "Public Domain"

);

use Irssi;

my @channels;

my @nicks;

my $kickreason;

sub nick_banner {

my($server, $channel, $nick, $address) = @_;

# Are we opped?

return unless $server->channel_find($channel)->{chanop};

# If the nick is a server, stop it.

return if $nick eq $server->{nick};

# Is the user a banned nick?

my $nono = 0;

foreach (@nicks) { $nono = 1 if lc($nick) eq lc($_) }

return unless $nono;

# Is the user on one of the banned channels?

my $react = 0;

foreach (@channels) { $react = 1 if lc($channel) eq lc($_) }

return unless $react;

# User voiced or op'd?

# Pretty useless, but ok

return if $server->channel_find($channel)->nick_find($nick)->{op} || $server->channel_find($channel)->nick_find($nick)->{voice};

$server->command("kickban $channel $nick $kickreason");

Irssi::print("Nick banning $nick on $channel. Banned.");

}

sub sig_setup_changed {

@channels = split(/\s+/,Irssi::settings_get_str($IRSSI{name}.'_channels'));

@nicks = split(/\s+/,Irssi::settings_get_str($IRSSI{name}.'_nicks'));

$kickreason = Irssi::settings_get_str($IRSSI{name}.'_reason');

}

Irssi::settings_add_str($IRSSI{name}, $IRSSI{name}.'_channels', '#worldchat #chat-world #php');

Irssi::settings_add_str($IRSSI{name}, $IRSSI{name}.'_nicks', 'evildude evilgirl');

Irssi::settings_add_str($IRSSI{name}, $IRSSI{name}.'_reason', "Not welcome here.");

Irssi::signal_add_last('message join', 'nick_banner');

Irssi::signal_add('setup changed', 'sig_setup_changed');

sig_setup_changed();