mirror of
https://github.com/pragma-/pbot.git
synced 2024-10-09 04:48:43 +02:00
d955bfa06c
Allows changing of bot configuration values without needing to restart bot instance or needing to edit pbot.pl script. Registry will initially be populated with default values from pbot.pl, but if a registry file exists then the registry values will take precedence over the pbot.pl values. For instance, if you regset the bot trigger to '%' then the trigger will be '%' even if pbot.pl has '!' or something else explicitly set. Some registry items can have trigger hooks associated with them. For instance, the irc->botnick registry entry has a change_botnick_trigger associated with it which changes the IRC nick on the server when a new value is set via regset/regadd. Tons of other fixes and improvements throughout.
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;
|