Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
164 lines (141 sloc) 6.39 KB
###############################################################################
# badword.pl
# Copyright (C) 2002 Jan 'fissie' Sembera <fis@ji.cz>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
###############################################################################
# This is configurable badword script. It may be configured to ban immediately
# when first badword is detected, or it may count badwords and if number of
# badwords of given nick exceeds limit, ban him. Badword count may also be
# expired if no badword is seen for specified period of time. Optional
# verbosity (let's call it logging) may be enabled as well
#
# Runtime variables:
#
# badword_channels = list of channels where script is active, separated by space
# badword_words = list of 'bad words' that trigger this, separated by space
# badword_reason = reason used in kick when count exceeds permitted limit
# badword_limit = if number of detected badwords reaches this number, ban'em.
# Set 1 to immediately kickban.
# badword_clear_delay = if no badword is detected from user for time specified
# here (in seconds), clear his counter. Set 0 to disable.
# badword_verbose = turns on/off logging features
# badword_ban_delay = ban after number of kicks specified here. 0 - disables
# banning, 1 - ban immediately, ...
###############################################################################
#
# Changelog:
#
# Jun 4 2002
# - added ban delaying feature
#
###############################################################################
use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "0.0.3";
%IRSSI = (
authors => "Jan 'fissie' Sembera",
contact => "fis\@ji.cz",
name => "badword",
description => "Configurable badword kickbanning script",
license => "GPL v2 and any later",
url => "http://fis.bofh.cz/devel/irssi/",
);
my %nick_dbase;
sub sig_public {
my ($server, $msg, $nick, $address, $target) = @_;
my $watch_channels = Irssi::settings_get_str('badword_channels');
my $watch_words = Irssi::settings_get_str('badword_words');
my @chanz = split (/ /, $watch_channels);
my @wordz = split (/ /, $watch_words);
my $nickrec = $server->channel_find($target)->nick_find($nick);
my $nickmode = $nickrec->{op} ? "@" : $nickrec->{voice} ? "+" : "";
my $aux = 0;
if (! ($nickmode eq "")) {
return;
}
foreach my $ch (@chanz) {
if ($ch eq $target) {
$aux = 1;
}
}
if ($aux == 0) {
return;
}
$aux = 0;
foreach my $bw (@wordz) {
# if (($msg =~ /\ $bw/) || ($msg =~ /^$bw/)) {
if ($msg =~ /$bw/) {
$aux = 1;
}
}
if ($aux == 0) {
return;
}
# Ok, here comes badword, check record
my $luser = $nick_dbase{$nick}{$target};
if (!$luser) {
$nick_dbase{$nick}{$target}{'count'} = 1;
$nick_dbase{$nick}{$target}{'kcount'} = 0;
$nick_dbase{$nick}{$target}{'stamp'} = time();
} else {
if ((Irssi::settings_get_int('badword_clear_delay') != 0) && (($nick_dbase{$nick}{$target}{'stamp'})+(Irssi::settings_get_int('badword_clear_delay'))) < time()) {
$nick_dbase{$nick}{$target}{'count'} = 1;
if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Expired for '.$nick.' with hostmask '.$address.' on channel '.$target); }
} else {
$nick_dbase{$nick}{$target}{'count'} = ($nick_dbase{$nick}{$target}{'count'})+1;
}
$nick_dbase{$nick}{$target}{'stamp'} = time();
}
$luser = $nick_dbase{$nick}{$target}{'count'};
if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Detected badword from nick '.$nick.' with hostmask '.$address.' on channel '.$target.' - '.$nick_dbase{$nick}{$target}{'count'}.' times'); }
if ($luser == Irssi::settings_get_int('badword_limit')) {
$nick_dbase{$nick}{$target}{'count'} = 0;
# Ban'em!
my @host = split(/\@/, $address);
if (($host[0] =~ /\~/) || ($host[0] =~ /\-/) || ($host[0] =~ /\=/) || ($host[0] =~ /\^/)) { $host[0] = "*"; }
my $mask = '*!'.$host[0].'@'.$host[1];
$nick_dbase{$nick}{$target}{'kcount'} = ($nick_dbase{$nick}{$target}{'kcount'})+1;
if ((Irssi::settings_get_int('badword_ban_delay') > 0) && (Irssi::settings_get_int('badword_ban_delay') == $nick_dbase{$nick}{$target}{'kcount'})) {
$server->command('mode '.$target.' +b '.$mask);
$nick_dbase{$nick}{$target}{'kcount'} = 0;
if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Nick '.$nick.' with mask '.$mask.' punished for badwording on channel '.$target.' - banned'); }
} else {
if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Nick '.$nick.' with mask '.$mask.' punished for badwording on channel '.$target.' - kicked'); }
}
$server->command('quote kick '.$target.' '.$nick.' :'.Irssi::settings_get_str('badword_reason'));
}
}
sub sig_nick {
my ($server, $newnick, $nick, $address) = @_;
$newnick = substr ($newnick, 1) if ($newnick =~ /^:/);
my $count = $nick_dbase{$nick};
if ($count) {
$nick_dbase{$nick} = undef;
$nick_dbase{$newnick} = $count;
if (Irssi::settings_get_bool('badword_verbose') == 1) { Irssi::print('BW: Tranferred badwords from '.$nick.' to '.$newnick); }
}
}
Irssi::settings_add_str("misc", "badword_channels", "");
Irssi::settings_add_str("misc", "badword_words", "");
Irssi::settings_add_str("misc", "badword_reason", "BW: badword limit exceeded");
Irssi::settings_add_int("misc", "badword_limit", 3);
Irssi::settings_add_int("misc", "badword_clear_delay", 3600);
Irssi::settings_add_int("misc", "badword_ban_delay", 1);
Irssi::settings_add_bool("misc", "badword_verbose", 0);
Irssi::signal_add_last('message public', 'sig_public');
Irssi::signal_add_last('event nick', 'sig_nick');