mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-26 22:09:26 +01:00
StdinReader: no longer need bot trigger to invoke commands
This commit is contained in:
parent
eaea0c970e
commit
cd8f07e276
@ -1,6 +1,12 @@
|
|||||||
# File: StdinReader.pm
|
# File: StdinReader.pm
|
||||||
#
|
#
|
||||||
# Purpose: Reads input from STDIN.
|
# Purpose: Reads input from STDIN.
|
||||||
|
#
|
||||||
|
# Note: To execute a command in a channel, use the `in` command:
|
||||||
|
#
|
||||||
|
# in #foo echo hi
|
||||||
|
#
|
||||||
|
# The above will output "hi" in channel #foo.
|
||||||
|
|
||||||
# This Source Code Form is subject to the terms of the Mozilla Public
|
# 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
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
||||||
@ -52,24 +58,16 @@ sub stdin_reader {
|
|||||||
# decode STDIN input from utf8
|
# decode STDIN input from utf8
|
||||||
$input = decode('UTF-8', $input);
|
$input = decode('UTF-8', $input);
|
||||||
|
|
||||||
|
# remove newline
|
||||||
chomp $input;
|
chomp $input;
|
||||||
|
|
||||||
$self->{pbot}->{logger}->log("---------------------------------------------\n");
|
$self->{pbot}->{logger}->log("---------------------------------------------\n");
|
||||||
$self->{pbot}->{logger}->log("Got STDIN: $input\n");
|
$self->{pbot}->{logger}->log("Got STDIN: $input\n");
|
||||||
|
|
||||||
my ($from, $text);
|
|
||||||
|
|
||||||
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
|
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
|
||||||
|
|
||||||
if ($input =~ m/^~([^ ]+)\s+(.*)/) {
|
# process input as a bot command
|
||||||
$from = $1;
|
return $self->{pbot}->{interpreter}->process_line($botnick, $botnick, "stdin", "pbot", $input, 1);
|
||||||
$text = "$botnick $2";
|
|
||||||
} else {
|
|
||||||
$from = 'stdin@pbot';
|
|
||||||
$text = "$botnick $input";
|
|
||||||
}
|
|
||||||
|
|
||||||
return $self->{pbot}->{interpreter}->process_line($from, $botnick, "stdin", "pbot", $text);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
Loading…
Reference in New Issue
Block a user