summaryrefslogtreecommitdiffstats
path: root/scripts/akilluser.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--scripts/akilluser.pl92
1 files changed, 92 insertions, 0 deletions
diff --git a/scripts/akilluser.pl b/scripts/akilluser.pl
new file mode 100644
index 0000000..c0f350a
--- /dev/null
+++ b/scripts/akilluser.pl
@@ -0,0 +1,92 @@
+# AKILL a specified nick, either with the defined reason or with something given
+# in the command
+#
+# (C) 2006 by Joerg Jaspert <joerg@debian.org>
+# (C) 2007 by Christoph Berg <cb@df7cb.de>
+#
+# 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 script; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+use strict;
+use Irssi;
+
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.2.3';
+%IRSSI = (
+ authors => 'Joerg Jaspert',
+ contact => 'joerg@debian.org',
+ name => 'akilluser',
+ description => 'AKILLS a nick',
+ license => 'GPL v2 (and no later)',
+);
+
+########################################################################
+# Kill it
+
+sub akill_nick {
+ my ($arg, $server, $channel) = @_;
+
+ $arg =~ /(\S+)\s?(.*)?/;
+ my ($target, $reason) = ($1, $2);
+ my ($user, $host);
+
+ if ($target =~ /(.+)@(.+)/) {
+ ($user, $host) = ($1, $2);
+ if ($server->masks_match(Irssi::settings_get_str('akill_exempt'), "somebody", "${user}\@${host}")) {
+ Irssi::print("Not AKILLing an akill-exempt user");
+ return;
+ }
+ } else {
+ my @channicks = $server->nicks_get_same($target);
+ if (!@channicks) {
+ Irssi::print("User $target not found");
+ return;
+ }
+ my $nickh = $channicks[1];
+ if ($server->masks_match(Irssi::settings_get_str('akill_exempt'), $target, $nickh->{host})) {
+ Irssi::print("Not AKILLing an akill-exempt user");
+ return;
+ }
+ $nickh->{host} =~ /(\S+)@(\S+)/;
+ ($user, $host) = ("*", $2);
+ }
+
+ if ("$user$host" !~ /[\w\d]/) {
+ Irssi::print("AKILLing $user\@$host looks insane");
+ return;
+ }
+
+ if (length($reason) < 2) {
+ $reason = Irssi::settings_get_str('akill_reason');
+ }
+ if ($reason !~ /\@oftc\.net/) {
+ $reason .= " " . Irssi::settings_get_str('akill_trailer');
+ }
+
+ Irssi::print("AKILLed $target ($user\@$host) with \"$reason\"");
+ $server->command("quote os akill add $user\@$host $reason");
+}
+
+
+########################################################################
+# ---------- Do the startup tasks ----------
+
+# Add the settings
+Irssi::settings_add_str("akilluser.pl", "akill_reason", 'This host violated network policy.');
+Irssi::settings_add_str("akilluser.pl", "akill_trailer", 'Mail support@oftc.net if you think this is in error.');
+Irssi::settings_add_str("akilluser.pl", "akill_exempt", '*!*@*.sponsor.oftc.net *!*@*.advisor.oftc.net *!*@*.netrep.oftc.net *!*@*.netop.oftc.net *!*@*.noc.oftc.net *!*@*.ombudsman.oftc.net *!*@*.chair.oftc.net');
+
+Irssi::command_bind('akill', 'akill_nick');