diff options
Diffstat (limited to 'scripts/badword.pl')
| -rw-r--r-- | scripts/badword.pl | 163 |
1 files changed, 163 insertions, 0 deletions
diff --git a/scripts/badword.pl b/scripts/badword.pl new file mode 100644 index 0000000..20a0b57 --- /dev/null +++ b/scripts/badword.pl @@ -0,0 +1,163 @@ +############################################################################### +# 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'); |