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