mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-26 13:59:47 +01:00
Commands: make in
command more intuitive
This commit is contained in:
parent
4e0e39ea52
commit
20159ad929
@ -1,4 +1,5 @@
|
|||||||
# File: Commands.pm
|
# File: Commands.pm
|
||||||
|
#
|
||||||
# Author: pragma_
|
# Author: pragma_
|
||||||
#
|
#
|
||||||
# Purpose: Derives from Registerable class to provide functionality to
|
# Purpose: Derives from Registerable class to provide functionality to
|
||||||
@ -43,7 +44,7 @@ sub initialize {
|
|||||||
$self->register(sub { $self->cmdunset(@_) }, "cmdunset", 90);
|
$self->register(sub { $self->cmdunset(@_) }, "cmdunset", 90);
|
||||||
$self->register(sub { $self->help(@_) }, "help", 0);
|
$self->register(sub { $self->help(@_) }, "help", 0);
|
||||||
$self->register(sub { $self->uptime(@_) }, "uptime", 0);
|
$self->register(sub { $self->uptime(@_) }, "uptime", 0);
|
||||||
$self->register(sub { $self->in_channel(@_) }, "in", 0);
|
$self->register(sub { $self->in_channel(@_) }, "in", 10);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub register {
|
sub register {
|
||||||
@ -260,10 +261,14 @@ sub in_channel {
|
|||||||
my $usage = "Usage: in <channel> <command>";
|
my $usage = "Usage: in <channel> <command>";
|
||||||
return $usage if not $arguments;
|
return $usage if not $arguments;
|
||||||
|
|
||||||
my ($channel, $command) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2);
|
my ($channel, $command) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2, 0, 1);
|
||||||
return $usage if not defined $channel or not defined $command;
|
return $usage if not defined $channel or not defined $command;
|
||||||
|
|
||||||
$stuff->{admin_channel_override} = $channel;
|
if (not $self->{pbot}->{nicklist}->is_present($channel, $nick)) {
|
||||||
|
return "You must be present in $channel to do this.";
|
||||||
|
}
|
||||||
|
|
||||||
|
$stuff->{from} = $channel;
|
||||||
$stuff->{command} = $command;
|
$stuff->{command} = $command;
|
||||||
return $self->{pbot}->{interpreter}->interpret($stuff);
|
return $self->{pbot}->{interpreter}->interpret($stuff);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user