Import scripts from scripts.irssi.org

1 files changed, 114 insertions, 0 deletions

diff --git a/scripts/mkick.pl b/scripts/mkick.pl
new file mode 100644
index 0000000..6903ab2
--- /dev/null
+++ b/scripts/mkick.pl
@@ -0,0 +1,114 @@
+#
+# Usage: /MKICK [options] [mode] [mask] [reason]
+# Options:
+#	-n	normal kick
+#	-6	'2+4' kickmethod
+# Mode:
+#	-a	all on channel
+#	-o	chops
+#	-v	chvoices
+#	-d	users without op
+#	-l	users without op and voice
+# Settings.
+#	/SET masskick_default_reason [reason]
+#	/SET masskick_default_use_6method [On/Off]
+#
+
+use strict;
+use Irssi;
+use Irssi::Irc;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "0.9";
+%IRSSI = (
+	authors		=> 'Marcin Rozycki',
+	contact		=> 'derwan@irssi.pl',
+	name		=> 'mkick',
+	description	=> 'Masskick, usage: /mkick [-aovdln6 (hostmask)] <[:]reason>',
+	license		=> 'GNU GPL v2',
+	url		=> 'http://derwan.irssi.pl',
+	changed		=> 'Wed Oct  6 20:58:38 CEST 2004'
+);
+
+Irssi::theme_register([
+	'mkick_not_connected',	'Mkick: Not connected to server',
+	'mkick_not_chanwin',	'Mkick: Not joined to any channel',
+	'mkick_not_chanop',	'Mkick: You\'re not channel operator on {hilight $0}',
+	'mkick_syntax',		'Mkick: $0, use: /MKICK [-a|-o|-v|-d|-l] [-n|-6] (mask) [reason]',
+	'mkick_no_users',	'%_Mkick:%_ No users matching given criteria',
+	'mkick_kicklist',	'%_Mkick:%_ Send masskick for $1 users on $0: $2-'
+]);
+
+sub cmd_mkick
+{
+	my ($args, $server, $witem) = @_;
+
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_connected"), return if (!$server or !$server->{connected});
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_chanwin"), return if (!$witem or $witem->{type} !~ /^channel$/i);
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_not_chanop", $witem->{name}), return if (!$witem->{chanop});
+
+	my $reason = Irssi::settings_get_str("masskick_default_reason");
+	my $method = Irssi::settings_get_bool("masskick_default_use_6method");
+	my $servernick = $server->{nick};
+	my $channel = $witem->{name};
+	my $mode = undef;
+	my $mask = "*!*\@*";
+
+	my @kicklist = ();
+	my @nicklist = ();
+	my @args = split(/ +/, $args);
+
+	while ($_ = shift(@args))
+	{
+		/^..*!..*@..*$/ and $mask = "$&", next;
+		/^-(a|o|v|d|l)$/ and s/-//, $mode = $_, next;
+		/^-(n|6)$/ and $method = $_ =~ s/6//, next;
+		/^-/ and Irssi::printformat(MSGLEVEL_CRAP, "mkick_syntax", "Unknown argument: $_"), return;
+		/^:/ and s/^://;
+		$reason = ($#args >= 0) ? $_." ".join(" ", @args) : $_;
+		last;
+	};
+
+	unless ($mode) {
+		Irssi::printformat(MSGLEVEL_CRAP, "mkick_syntax", "Missing argument"), return if ($mask eq '*!*@*');
+		$mode = "a";
+	};
+
+	foreach my $hash ($witem->nicks())
+	{
+		my $nick = $hash->{nick};
+		next if ($nick eq $servernick or !$server->mask_match_address($mask, $nick, $hash->{host}));
+
+		my $isop = $hash->{op};
+		my $isvoice = $hash->{voice};
+
+		if ($mode eq "a" or
+		    $mode eq "o" && $isop or
+		    $mode eq "v" && $isvoice && !$isop or
+		    $mode eq "d" && !$isop or
+		    $mode eq "l" && !$isop && !$isvoice) {
+			push(@kicklist, $nick);
+			my $mod = ($isop == 1) ? "\@" : ($isvoice == 1) ? "+" : undef;
+			push(@nicklist, $mod.$nick);
+		};
+	};
+
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_no_users", $mask, $mode), return if ($#kicklist < 0);
+	Irssi::printformat(MSGLEVEL_CRAP, "mkick_kicklist", $channel, scalar(@nicklist), @nicklist);
+
+	if ($method > 0) {
+		$reason = substr($reason, 0, 15) if (length($reason) > 15);
+		while (@kicklist) {
+			$server->send_raw("KICK $channel ".join(",", @kicklist[0 .. $method])." :$reason");
+			@kicklist = @kicklist[($method + 1)..$#kicklist];
+			$method = ($method == 3 && $#kicklist > 3) ? 1 : 3;
+		};
+	} else {
+		$server->send_raw_split("KICK $channel ".join(",", @kicklist)." :$reason", 2, $server->{max_kicks_in_cmd});
+	};
+};
+
+Irssi::settings_add_str("misc", "masskick_default_reason", "Irssi BaBy!");
+Irssi::settings_add_bool("misc", "masskick_default_use_6method", 0);
+
+Irssi::command_bind("mkick", "cmd_mkick");