Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
115 lines (98 sloc) 3.56 KB
#
# 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");