2010-03-23 19:24:02 +01:00
|
|
|
# File: ChanOpCommands.pm
|
2010-03-24 07:47:40 +01:00
|
|
|
# Author: pragma_
|
2010-03-23 19:24:02 +01:00
|
|
|
#
|
|
|
|
# Purpose: Channel operator command subroutines.
|
|
|
|
|
2017-03-05 22:33:31 +01:00
|
|
|
# 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/.
|
|
|
|
|
2010-03-23 19:24:02 +01:00
|
|
|
package PBot::ChanOpCommands;
|
|
|
|
|
|
|
|
use warnings;
|
|
|
|
use strict;
|
|
|
|
|
|
|
|
use Carp ();
|
2015-04-12 01:00:20 +02:00
|
|
|
use Time::Duration;
|
2015-04-14 00:43:19 +02:00
|
|
|
|
|
|
|
use PBot::Utils::ParseDate;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
|
|
|
sub new {
|
2017-11-10 04:26:05 +01:00
|
|
|
if (ref($_[1]) eq 'HASH') {
|
2010-03-23 19:24:02 +01:00
|
|
|
Carp::croak("Options to ChanOpCommands should be key/value pairs, not hash reference");
|
|
|
|
}
|
|
|
|
|
|
|
|
my ($class, %conf) = @_;
|
|
|
|
|
|
|
|
my $self = bless {}, $class;
|
|
|
|
$self->initialize(%conf);
|
|
|
|
return $self;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub initialize {
|
|
|
|
my ($self, %conf) = @_;
|
|
|
|
|
|
|
|
my $pbot = delete $conf{pbot};
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $pbot) {
|
2010-03-23 19:24:02 +01:00
|
|
|
Carp::croak("Missing pbot reference to ChanOpCommands");
|
|
|
|
}
|
|
|
|
|
|
|
|
$self->{pbot} = $pbot;
|
2017-11-10 04:26:05 +01:00
|
|
|
|
2014-05-18 22:09:05 +02:00
|
|
|
$pbot->{commands}->register(sub { return $self->ban_user(@_) }, "ban", 10);
|
|
|
|
$pbot->{commands}->register(sub { return $self->unban_user(@_) }, "unban", 10);
|
2015-05-27 19:45:43 +02:00
|
|
|
$pbot->{commands}->register(sub { return $self->mute_user(@_) }, "mute", 10);
|
|
|
|
$pbot->{commands}->register(sub { return $self->unmute_user(@_) }, "unmute", 10);
|
2014-05-18 22:09:05 +02:00
|
|
|
$pbot->{commands}->register(sub { return $self->kick_user(@_) }, "kick", 10);
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2010-06-18 09:03:16 +02:00
|
|
|
sub ban_user {
|
2010-03-23 19:24:02 +01:00
|
|
|
my $self = shift;
|
2018-02-22 02:21:38 +01:00
|
|
|
my ($from, $nick, $user, $host, $arguments, $stuff) = @_;
|
2015-04-12 01:00:20 +02:00
|
|
|
my ($target, $channel, $length) = split(/\s+/, $arguments, 3);
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-04-11 04:13:56 +02:00
|
|
|
$channel = '' if not defined $channel;
|
|
|
|
$length = '' if not defined $length;
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $from) {
|
2014-05-18 22:09:05 +02:00
|
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
2010-03-23 19:24:02 +01:00
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
2015-05-27 19:45:43 +02:00
|
|
|
if ($channel !~ m/^#/) {
|
|
|
|
$length = "$channel $length";
|
2015-06-10 11:27:13 +02:00
|
|
|
$length = undef if $length eq ' ';
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from;
|
2015-05-27 19:45:43 +02:00
|
|
|
}
|
|
|
|
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from if not defined $channel or not length $channel;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $target) {
|
2015-05-27 19:45:43 +02:00
|
|
|
return "/msg $nick Usage: ban <mask> [channel [timeout (default: 24 hours)]]";
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $length) {
|
2015-04-12 01:00:20 +02:00
|
|
|
$length = 60 * 60 * 24; # 24 hours
|
|
|
|
} else {
|
2015-04-14 00:43:19 +02:00
|
|
|
my $error;
|
|
|
|
($length, $error) = parsedate($length);
|
|
|
|
return $error if defined $error;
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2014-05-17 22:08:19 +02:00
|
|
|
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
|
2015-05-07 06:13:39 +02:00
|
|
|
return "I don't think so." if $target =~ /^\Q$botnick\E!/i;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-11-03 20:28:41 +01:00
|
|
|
if (not $self->{pbot}->{admins}->loggedin($channel, "$nick!$user\@$host")) {
|
|
|
|
return "/msg $nick You are not an admin for $channel.";
|
|
|
|
}
|
|
|
|
|
2015-04-12 01:00:20 +02:00
|
|
|
$self->{pbot}->{chanops}->ban_user_timed($target, $channel, $length);
|
2015-05-07 06:13:39 +02:00
|
|
|
|
|
|
|
if ($length > 0) {
|
|
|
|
$length = duration($length);
|
|
|
|
} else {
|
|
|
|
$length = 'all eternity';
|
|
|
|
}
|
|
|
|
|
2015-04-12 01:00:20 +02:00
|
|
|
return "/msg $nick $target banned in $channel for $length";
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2010-06-18 09:03:16 +02:00
|
|
|
sub unban_user {
|
2010-03-23 19:24:02 +01:00
|
|
|
my $self = shift;
|
2018-02-22 02:21:38 +01:00
|
|
|
my ($from, $nick, $user, $host, $arguments, $stuff) = @_;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $from) {
|
2014-05-18 22:09:05 +02:00
|
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
2010-03-23 19:24:02 +01:00
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
2017-11-08 20:11:43 +01:00
|
|
|
my ($target, $channel, $immediately) = split /\s+/, $arguments;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2010-04-03 21:49:41 +02:00
|
|
|
if(not defined $target) {
|
2017-11-08 20:15:36 +01:00
|
|
|
return "/msg $nick Usage: unban <mask> [[channel] [true value to use unban queue]]";
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from if not defined $channel;
|
2017-11-08 20:11:43 +01:00
|
|
|
$immediately = 1 if not defined $immediately;
|
2017-11-10 04:26:05 +01:00
|
|
|
|
2017-11-08 20:15:36 +01:00
|
|
|
return "/msg $nick Usage for /msg: unban <nick/mask> <channel> [true value to use unban queue]" if $channel !~ /^#/;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-11-03 20:28:41 +01:00
|
|
|
if (not $self->{pbot}->{admins}->loggedin($channel, "$nick!$user\@$host")) {
|
|
|
|
return "/msg $nick You are not an admin for $channel.";
|
|
|
|
}
|
|
|
|
|
2017-11-08 20:11:43 +01:00
|
|
|
my @targets = split /,/, $target;
|
|
|
|
$immediately = 0 if @targets > 2;
|
|
|
|
|
|
|
|
foreach my $t (@targets) {
|
|
|
|
$self->{pbot}->{chanops}->unban_user($t, $channel, $immediately);
|
|
|
|
}
|
|
|
|
|
2011-10-31 20:56:08 +01:00
|
|
|
return "/msg $nick $target has been unbanned from $channel.";
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
2015-05-27 19:45:43 +02:00
|
|
|
sub mute_user {
|
|
|
|
my $self = shift;
|
2018-02-22 02:21:38 +01:00
|
|
|
my ($from, $nick, $user, $host, $arguments, $stuff) = @_;
|
2015-05-27 19:45:43 +02:00
|
|
|
my ($target, $channel, $length) = split(/\s+/, $arguments, 3);
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $from) {
|
2015-05-27 19:45:43 +02:00
|
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
2016-11-17 04:14:39 +01:00
|
|
|
if (not defined $channel and $from !~ m/^#/) {
|
|
|
|
return "/msg $nick Usage from private message: mute <mask> <channel> [timeout (default: 24 hours)]";
|
|
|
|
}
|
|
|
|
|
2015-05-27 19:45:43 +02:00
|
|
|
if ($channel !~ m/^#/) {
|
|
|
|
$length = "$channel $length";
|
2015-06-10 11:27:13 +02:00
|
|
|
$length = undef if $length eq ' ';
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from;
|
2015-05-27 19:45:43 +02:00
|
|
|
}
|
|
|
|
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from if not defined $channel;
|
2015-05-27 19:45:43 +02:00
|
|
|
|
2016-11-17 04:14:39 +01:00
|
|
|
if ($channel !~ m/^#/) {
|
|
|
|
return "/msg $nick Please specify a channel.";
|
|
|
|
}
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $target) {
|
2015-05-27 19:45:43 +02:00
|
|
|
return "/msg $nick Usage: mute <mask> [channel [timeout (default: 24 hours)]]";
|
|
|
|
}
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $length) {
|
2015-05-27 19:45:43 +02:00
|
|
|
$length = 60 * 60 * 24; # 24 hours
|
|
|
|
} else {
|
|
|
|
my $error;
|
|
|
|
($length, $error) = parsedate($length);
|
|
|
|
return $error if defined $error;
|
|
|
|
}
|
|
|
|
|
|
|
|
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
|
|
|
|
return "I don't think so." if $target =~ /^\Q$botnick\E!/i;
|
|
|
|
|
2017-11-03 20:28:41 +01:00
|
|
|
if (not $self->{pbot}->{admins}->loggedin($channel, "$nick!$user\@$host")) {
|
|
|
|
return "/msg $nick You are not an admin for $channel.";
|
|
|
|
}
|
|
|
|
|
2015-05-27 19:45:43 +02:00
|
|
|
$self->{pbot}->{chanops}->mute_user_timed($target, $channel, $length);
|
|
|
|
|
|
|
|
if ($length > 0) {
|
|
|
|
$length = duration($length);
|
|
|
|
} else {
|
|
|
|
$length = 'all eternity';
|
|
|
|
}
|
|
|
|
|
|
|
|
return "/msg $nick $target muted in $channel for $length";
|
|
|
|
}
|
|
|
|
|
|
|
|
sub unmute_user {
|
|
|
|
my $self = shift;
|
2018-02-22 02:21:38 +01:00
|
|
|
my ($from, $nick, $user, $host, $arguments, $stuff) = @_;
|
2015-05-27 19:45:43 +02:00
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $from) {
|
2015-05-27 19:45:43 +02:00
|
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
2017-09-02 09:39:29 +02:00
|
|
|
my ($target, $channel) = split /\s+/, $arguments;
|
2015-05-27 19:45:43 +02:00
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $target) {
|
2015-05-27 19:45:43 +02:00
|
|
|
return "/msg $nick Usage: unmute <mask> [channel]";
|
|
|
|
}
|
|
|
|
|
2018-02-22 02:21:38 +01:00
|
|
|
$channel = exists $stuff->{as_admin} ? $stuff->{as_admin} : $from if not defined $channel;
|
2015-05-27 19:45:43 +02:00
|
|
|
|
2017-05-21 11:18:44 +02:00
|
|
|
return "/msg $nick Usage for /msg: unmute <mask> <channel>" if $channel !~ /^#/;
|
2015-05-27 19:45:43 +02:00
|
|
|
|
2017-11-03 20:28:41 +01:00
|
|
|
if (not $self->{pbot}->{admins}->loggedin($channel, "$nick!$user\@$host")) {
|
|
|
|
return "/msg $nick You are not an admin for $channel.";
|
|
|
|
}
|
|
|
|
|
2017-08-04 08:19:02 +02:00
|
|
|
$self->{pbot}->{chanops}->unmute_user($target, $channel, 1);
|
2015-05-27 19:45:43 +02:00
|
|
|
return "/msg $nick $target has been unmuted in $channel.";
|
|
|
|
}
|
|
|
|
|
2010-03-23 19:24:02 +01:00
|
|
|
sub kick_user {
|
|
|
|
my $self = shift;
|
2018-02-22 02:21:38 +01:00
|
|
|
my ($from, $nick, $user, $host, $arguments, $stuff) = @_;
|
2010-03-23 19:24:02 +01:00
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not defined $from) {
|
2014-05-18 22:09:05 +02:00
|
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
2010-03-23 19:24:02 +01:00
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
2016-08-29 07:36:46 +02:00
|
|
|
my ($channel, $victim, $reason);
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not $from =~ /^#/) {
|
2016-08-29 07:36:46 +02:00
|
|
|
# used in private message
|
2017-11-10 04:26:05 +01:00
|
|
|
if (not $arguments =~ s/^(^#\S+) (\S+)\s*//) {
|
2016-08-29 07:36:46 +02:00
|
|
|
return "/msg $nick Usage from private message: kick <channel> <nick> [reason]";
|
|
|
|
}
|
|
|
|
($channel, $victim) = ($1, $2);
|
|
|
|
} else {
|
|
|
|
# used in channel
|
2017-11-10 04:26:05 +01:00
|
|
|
if ($arguments =~ s/^(#\S+)\s+(\S+)\s*//) {
|
|
|
|
($channel, $victim) = ($1, $2);
|
|
|
|
} elsif ($arguments =~ s/^(\S+)\s*//) {
|
2018-02-22 02:21:38 +01:00
|
|
|
($victim, $channel) = ($1, exists $stuff->{as_admin} ? $stuff->{as_admin} : $from);
|
2017-11-10 04:26:05 +01:00
|
|
|
} else {
|
|
|
|
return "/msg $nick Usage: kick [channel] <nick> [reason]";
|
2014-04-19 12:35:27 +02:00
|
|
|
}
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
2014-04-19 12:35:27 +02:00
|
|
|
|
2016-08-29 07:36:46 +02:00
|
|
|
$reason = $arguments;
|
|
|
|
|
2017-11-10 04:26:05 +01:00
|
|
|
# If the user is too stupid to remember the order of the arguments,
|
|
|
|
# we can help them out by seeing if they put the channel in the reason.
|
|
|
|
if ($reason =~ s/^(#\S+)\s*//) {
|
|
|
|
$channel = $1;
|
|
|
|
}
|
|
|
|
|
2017-11-11 21:59:27 +01:00
|
|
|
if (not $self->{pbot}->{admins}->loggedin($channel, "$nick!$user\@$host")) {
|
|
|
|
return "/msg $nick You are not an admin for $channel.";
|
|
|
|
}
|
|
|
|
|
|
|
|
my @insults;
|
2016-08-29 07:36:46 +02:00
|
|
|
if (not length $reason) {
|
|
|
|
if (open my $fh, '<', $self->{pbot}->{registry}->get_value('general', 'module_dir') . '/insults.txt') {
|
2017-11-11 21:59:27 +01:00
|
|
|
@insults = <$fh>;
|
2016-08-29 07:36:46 +02:00
|
|
|
close $fh;
|
|
|
|
$reason = $insults[rand @insults];
|
2017-11-11 21:59:27 +01:00
|
|
|
$reason =~ s/\s+$//;
|
2016-08-29 07:36:46 +02:00
|
|
|
} else {
|
|
|
|
$reason = 'Bye!';
|
|
|
|
}
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
2014-04-19 12:35:27 +02:00
|
|
|
|
2017-11-11 21:59:27 +01:00
|
|
|
my @nicks = split /,/, $victim;
|
2017-11-13 17:42:56 +01:00
|
|
|
my $i = 0;
|
2017-11-11 21:59:27 +01:00
|
|
|
foreach my $n (@nicks) {
|
|
|
|
$self->{pbot}->{chanops}->add_op_command($channel, "kick $channel $n $reason");
|
|
|
|
if (@insults) {
|
|
|
|
$reason = $insults[rand @insults];
|
|
|
|
$reason =~ s/\s+$//;
|
|
|
|
}
|
2017-11-13 17:42:56 +01:00
|
|
|
last if ++$i >= 5;
|
2017-11-03 20:28:41 +01:00
|
|
|
}
|
|
|
|
|
2016-08-29 07:36:46 +02:00
|
|
|
$self->{pbot}->{chanops}->gain_ops($channel);
|
2017-11-10 04:26:05 +01:00
|
|
|
|
2017-09-19 06:24:30 +02:00
|
|
|
return "";
|
2010-03-23 19:24:02 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
1;
|