mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-25 04:02:37 +01:00
184 lines
7.9 KiB
Perl
184 lines
7.9 KiB
Perl
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
package Plugins::RestrictedMod;
|
|
use parent 'Plugins::Plugin';
|
|
|
|
# purpose: provides restricted moderation abilities to voiced users.
|
|
# They are allowed to ban/mute/kick only users that are not admins,
|
|
# whitelisted, or autoop/autovoice. This is useful for, e.g., IRCnet
|
|
# configurations where +v users are recognized as "semi-trusted" in
|
|
# order to provide assistance in combating heavy spam and drone traffic.
|
|
|
|
use warnings; use strict;
|
|
use feature 'unicode_strings';
|
|
|
|
use Storable qw/dclone/;
|
|
|
|
sub initialize {
|
|
my ($self, %conf) = @_;
|
|
$self->{pbot}->{commands}->register(sub { $self->modcmd(@_) }, 'mod', 0);
|
|
$self->{pbot}->{commands}->set_meta(
|
|
'mod', 'help',
|
|
'Provides restricted moderation abilities to voiced users. They can kick/ban/etc only users that are not admins, whitelisted, voiced or opped.'
|
|
);
|
|
|
|
$self->{pbot}->{capabilities}->add('chanmod', 'can-mod', 1);
|
|
$self->{pbot}->{capabilities}->add('chanmod', 'can-voice', 1);
|
|
$self->{pbot}->{capabilities}->add('chanmod', 'can-devoice', 1);
|
|
|
|
$self->{commands} = {
|
|
'help' => {subref => sub { $self->help(@_) }, help => "Provides help about this command. Usage: mod help <mod command>; see also: mod help list"},
|
|
'list' => {subref => sub { $self->list(@_) }, help => "Lists available mod commands. Usage: mod list"},
|
|
'kick' => {subref => sub { $self->kick(@_) }, help => "Kicks a nick from the channel. Usage: mod kick <nick>"},
|
|
'ban' => {subref => sub { $self->ban(@_) }, help => "Bans a nick from the channel. Cannot be used to set a custom banmask. Usage: mod ban <nick>"},
|
|
'mute' => {subref => sub { $self->mute(@_) }, help => "Mutes a nick in the channel. Usage: mod mute <nick>"},
|
|
'unban' => {subref => sub { $self->unban(@_) }, help => "Removes bans set by moderators. Cannot remove any other types of bans. Usage: mod unban <nick or mask>"},
|
|
'unmute' => {subref => sub { $self->unmute(@_) }, help => "Removes mutes set by moderators. Cannot remove any other types of mutes. Usage: mod unmute <nick or mask>"},
|
|
'kb' => {subref => sub { $self->kb(@_) }, help => "Kickbans a nick from the channel. Cannot be used to set a custom banmask. Usage: mod kb <nick>"},
|
|
};
|
|
}
|
|
|
|
sub unload {
|
|
my ($self) = @_;
|
|
$self->{pbot}->{commands}->unregister('mod');
|
|
$self->{pbot}->{capabilities}->remove('chanmod');
|
|
}
|
|
|
|
sub help {
|
|
my ($self, $stuff) = @_;
|
|
my $command = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist}) // 'help';
|
|
|
|
if (exists $self->{commands}->{$command}) { return $self->{commands}->{$command}->{help}; }
|
|
else { return "No such mod command '$command'. I can't help you with that."; }
|
|
}
|
|
|
|
sub list {
|
|
my ($self, $stuff) = @_;
|
|
return "Available mod commands: " . join ', ', sort keys %{$self->{commands}};
|
|
}
|
|
|
|
sub generic_command {
|
|
my ($self, $stuff, $command) = @_;
|
|
|
|
my $channel = $stuff->{from};
|
|
if ($channel !~ m/^#/) {
|
|
$channel = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist});
|
|
|
|
if (not defined $channel or $channel !~ /^#/) { return "Must specify channel from private message. Usage: mod $command <channel> <nick>"; }
|
|
}
|
|
|
|
return "I do not have OPs for this channel. I cannot do any moderation here." if not $self->{pbot}->{chanops}->can_gain_ops($channel);
|
|
return "Voiced moderation is not enabled for this channel. Use `regset $channel.restrictedmod 1` to enable."
|
|
if not $self->{pbot}->{registry}->get_value($channel, 'restrictedmod');
|
|
|
|
my $hostmask = "$stuff->{nick}!$stuff->{user}\@$stuff->{host}";
|
|
my $user = $self->{pbot}->{users}->loggedin($channel, $hostmask) // {admin => 0, chanmod => 0};
|
|
my $voiced = $self->{pbot}->{nicklist}->get_meta($channel, $stuff->{nick}, '+v');
|
|
|
|
if (not $voiced and not $self->{pbot}->{capabilities}->userhas($user, 'admin') and not $self->{pbot}->{capabilities}->userhas($user, 'chanmod')) {
|
|
return "You must be voiced (usermode +v) or have the admin or chanmod capability to use this command.";
|
|
}
|
|
|
|
my $target = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist});
|
|
return "Missing target. Usage: mod $command <nick>" if not defined $target;
|
|
|
|
if ($command eq 'unban') {
|
|
my $reason = $self->{pbot}->{chanops}->checkban($channel, $target);
|
|
if ($reason =~ m/moderator ban/) {
|
|
$self->{pbot}->{chanops}->unban_user($target, $channel, 1);
|
|
return "";
|
|
} else {
|
|
return "I don't think so. That ban was not set by a moderator.";
|
|
}
|
|
} elsif ($command eq 'unmute') {
|
|
my $reason = $self->{pbot}->{chanops}->checkmute($channel, $target);
|
|
if ($reason =~ m/moderator mute/) {
|
|
$self->{pbot}->{chanops}->unmute_user($target, $channel, 1);
|
|
return "";
|
|
} else {
|
|
return "I don't think so. That mute was not set by a moderator.";
|
|
}
|
|
}
|
|
|
|
my $target_nicklist;
|
|
if (not $self->{pbot}->{nicklist}->is_present($channel, $target)) { return "$stuff->{nick}: I do not see anybody named $target in this channel."; }
|
|
else { $target_nicklist = $self->{pbot}->{nicklist}->{nicklist}->{lc $channel}->{lc $target}; }
|
|
|
|
my $target_user = $self->{pbot}->{users}->loggedin($channel, $target_nicklist->{hostmask});
|
|
|
|
if ( (defined $target_user and $target_user->{autoop} or $target_user->{autovoice})
|
|
or $target_nicklist->{'+v'}
|
|
or $target_nicklist->{'+o'}
|
|
or $self->{pbot}->{capabilities}->userhas($target_user, 'is-whitelisted'))
|
|
{
|
|
return "I don't think so.";
|
|
}
|
|
|
|
if ($command eq 'kick') {
|
|
$self->{pbot}->{chanops}->add_op_command($channel, "kick $channel $target Have a nice day!");
|
|
$self->{pbot}->{chanops}->gain_ops($channel);
|
|
} elsif ($command eq 'ban') {
|
|
$self->{pbot}->{chanops}->ban_user_timed(
|
|
"$stuff->{nick}!$stuff->{user}\@$stuff->{host}",
|
|
"doing something naughty (moderator ban)", $target, $channel, 3600 * 24, 1
|
|
);
|
|
} elsif ($command eq 'mute') {
|
|
$self->{pbot}->{chanops}->mute_user_timed(
|
|
"$stuff->{nick}!$stuff->{user}\@$stuff->{host}",
|
|
"doing something naughty (moderator mute)", $target, $channel, 3600 * 24, 1
|
|
);
|
|
}
|
|
return "";
|
|
}
|
|
|
|
sub kick {
|
|
my ($self, $stuff) = @_;
|
|
return $self->generic_command($stuff, 'kick');
|
|
}
|
|
|
|
sub ban {
|
|
my ($self, $stuff) = @_;
|
|
return $self->generic_command($stuff, 'ban');
|
|
}
|
|
|
|
sub mute {
|
|
my ($self, $stuff) = @_;
|
|
return $self->generic_command($stuff, 'mute');
|
|
}
|
|
|
|
sub unban {
|
|
my ($self, $stuff) = @_;
|
|
return $self->generic_command($stuff, 'unban');
|
|
}
|
|
|
|
sub unmute {
|
|
my ($self, $stuff) = @_;
|
|
return $self->generic_command($stuff, 'unmute');
|
|
}
|
|
|
|
sub kb {
|
|
my ($self, $stuff) = @_;
|
|
my $result = $self->ban(dclone $stuff); # note: using copy of $stuff to preserve $stuff->{arglist} for $self->kick($stuff)
|
|
return $result if length $result;
|
|
return $self->kick($stuff);
|
|
}
|
|
|
|
sub modcmd {
|
|
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
|
|
|
|
my $command = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist}) // '';
|
|
$command = lc $command;
|
|
|
|
if (grep { $_ eq $command } keys %{$self->{commands}}) {
|
|
return $self->{commands}->{$command}->{subref}->($stuff);
|
|
} else {
|
|
my $commands = join ', ', sort keys %{$self->{commands}};
|
|
if ($from !~ m/^#/) { return "Usage: mod <channel> <command> [arguments]; commands are: $commands; see `mod help <command>` for more information."; }
|
|
else { return "Usage: mod <command> [arguments]; commands are: $commands; see `mod help <command>` for more information."; }
|
|
}
|
|
}
|
|
|
|
1;
|