Adding upstream version 20231031.upstream/20231031upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

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');