mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-28 21:52:35 +01:00
124 lines
3.3 KiB
Perl
124 lines
3.3 KiB
Perl
# File: ChanOpCommands.pm
|
|
# Author: pragma_
|
|
#
|
|
# Purpose: Channel operator command subroutines.
|
|
|
|
package PBot::ChanOpCommands;
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Carp ();
|
|
|
|
sub new {
|
|
if(ref($_[1]) eq 'HASH') {
|
|
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};
|
|
if(not defined $pbot) {
|
|
Carp::croak("Missing pbot reference to ChanOpCommands");
|
|
}
|
|
|
|
$self->{pbot} = $pbot;
|
|
|
|
$pbot->{commands}->register(sub { return $self->ban_user(@_) }, "ban", 10);
|
|
$pbot->{commands}->register(sub { return $self->unban_user(@_) }, "unban", 10);
|
|
$pbot->{commands}->register(sub { return $self->kick_user(@_) }, "kick", 10);
|
|
}
|
|
|
|
sub ban_user {
|
|
my $self = shift;
|
|
my ($from, $nick, $user, $host, $arguments) = @_;
|
|
my ($target, $length) = split(/\s+/, $arguments);
|
|
|
|
if(not defined $from) {
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
|
return "";
|
|
}
|
|
|
|
if(not $from =~ /^#/) { #not a channel
|
|
return "/msg $nick This command must be used in the channel.";
|
|
}
|
|
|
|
if(not defined $target) {
|
|
return "/msg $nick Usage: ban <mask> [timeout seconds (default: 3600 or 1 hour)]";
|
|
}
|
|
|
|
if(not defined $length) {
|
|
$length = 60 * 60; # one hour
|
|
}
|
|
|
|
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
|
|
return "" if $target =~ /\Q$botnick\E/i;
|
|
|
|
$self->{pbot}->{chanops}->ban_user_timed($target, $from, $length);
|
|
return "/msg $nick $target banned in $from for $length seconds";
|
|
}
|
|
|
|
sub unban_user {
|
|
my $self = shift;
|
|
my ($from, $nick, $user, $host, $arguments) = @_;
|
|
|
|
if(not defined $from) {
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
|
return "";
|
|
}
|
|
|
|
my ($target, $channel) = split / /, $arguments;
|
|
|
|
if(not defined $target) {
|
|
return "/msg $nick Usage: unban <mask> [channel]";
|
|
}
|
|
|
|
$channel = $from if not defined $channel;
|
|
|
|
return "/msg $nick Usage for /msg: !unban $target <channel>" if $channel !~ /^#/;
|
|
|
|
$self->{pbot}->{chanops}->unban_user($target, $channel);
|
|
return "/msg $nick $target has been unbanned from $channel.";
|
|
}
|
|
|
|
sub kick_user {
|
|
my $self = shift;
|
|
my ($from, $nick, $user, $host, $arguments) = @_;
|
|
|
|
if(not defined $from) {
|
|
$self->{pbot}->{logger}->log("Command missing ~from parameter!\n");
|
|
return "";
|
|
}
|
|
|
|
# used in private message
|
|
if(not $from =~ /^#/) {
|
|
if(not $arguments =~ /(^#\S+) (\S+) (.*)/) {
|
|
$self->{pbot}->{logger}->log("$nick!$user\@$host: invalid arguments to kick\n");
|
|
return "/msg $nick Usage from private message: kick <channel> <nick> <reason>";
|
|
}
|
|
$self->{pbot}->{chanops}->add_op_command($1, "kick $1 $2 $3");
|
|
$self->{pbot}->{chanops}->gain_ops($1);
|
|
return "/msg $nick Kicking $2 from $1 with reason '$3'";
|
|
}
|
|
|
|
# used in channel
|
|
if(not $arguments =~ /(.*?) (.*)/) {
|
|
$self->{pbot}->{logger}->log("$nick!$user\@$host: invalid arguments to kick\n");
|
|
return "/msg $nick Usage: kick <nick> <reason>";
|
|
}
|
|
|
|
$self->{pbot}->{chanops}->add_op_command($from, "kick $from $1 $2");
|
|
$self->{pbot}->{chanops}->gain_ops($from);
|
|
return "/msg $nick Kicking $1 from $from with reason '$2'";
|
|
}
|
|
|
|
1;
|