GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-10-01 17:16:39 +02:00
Code Issues Projects Releases Wiki Activity

ChanOpCommands: add mode command (level 40)

Browse Source
This commit is contained in:
Pragmatic Software 2019-12-26 06:08:39 -08:00
parent 824999b98a
commit a7866c1250
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
PBot/ChanOpCommands.pm
View File

@ -47,6 +47,31 @@ sub initialize {
$pbot->{commands}->register(sub { return $self->kick_user(@_) }, "kick", 10);
$pbot->{commands}->register(sub { return $self->checkban(@_) }, "checkban", 0);
$pbot->{commands}->register(sub { return $self->checkmute(@_) }, "checkmute", 0);
$pbot->{commands}->register(sub { return $self->mode(@_) }, "mode", 40);
}
sub mode {
my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_;
if (not length $arguments) {
return "Usage: mode [channel] <arguments>";
}
# add current channel as default channel
if ($stuff->{arglist}[0] !~ m/^#/) {
if ($from =~ m/^#/) {
unshift @{$stuff->{arglist}}, $from;
} else {
return "Usage from private message: mode <channel> <arguments>";
}
}
my ($channel, $args) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2);
$self->{pbot}->{conn}->mode($channel, $args);
if ($from !~ m/^#/) {
return "Done.";
}
}
sub checkban {