GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-02-18 14:30:40 +01:00
Code Issues Projects Releases Wiki Activity

Progress on refactoring and polishing everything

Browse Source
This commit is contained in:
Pragmatic Software 2021-06-11 16:50:09 -07:00
parent 924b359842
commit 96e276038e
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
PBot/Interpreter.pm
View File

@ -123,10 +123,10 @@ sub process_line {
$command = $2; $command = $2;
# does somenick or similar exist in channel? # does somenick or similar exist in channel?
my $similar = $self->{pbot}->{nicklist}->is_present_similar($from, $possible_nick_prefix); my $recipient = $self->{pbot}->{nicklist}->is_present_similar($from, $possible_nick_prefix);
if ($similar) { if ($recipient) {
$nick_prefix = $similar; $nick_prefix = $recipient;
} else { } else {
# disregard command if no such nick is present. # disregard command if no such nick is present.
$self->{pbot}->{logger}->log("No similar nick for $possible_nick_prefix; disregarding command.\n"); $self->{pbot}->{logger}->log("No similar nick for $possible_nick_prefix; disregarding command.\n");
@ -155,10 +155,10 @@ sub process_line {
my $possible_nick_prefix = $1; my $possible_nick_prefix = $1;
# does somenick or similar exist in channel? # does somenick or similar exist in channel?
my $similar = $self->{pbot}->{nicklist}->is_present_similar($from, $possible_nick_prefix); my $recipient = $self->{pbot}->{nicklist}->is_present_similar($from, $possible_nick_prefix);
if ($similar) { if ($recipient) {
$nick_prefix = $similar; $nick_prefix = $recipient;
} }
} }
@ -612,7 +612,6 @@ sub handle_result {
$result = $context->{split_result} . $result; $result = $context->{split_result} . $result;
} }
# set preserve_whitespace and use_output_queue # set preserve_whitespace and use_output_queue
# TODO: this should be in Factoids.pm and update $context's flags # TODO: this should be in Factoids.pm and update $context's flags
@ -654,22 +653,25 @@ sub handle_result {
# paste everything if we've output the maximum lines # paste everything if we've output the maximum lines
if (++$lines >= $max_lines) { if (++$lines >= $max_lines) {
my $link = $self->{pbot}->{webpaste}->paste("$context->{from} <$context->{nick}> $context->{text}\n\n$original_result"); my $link = $self->{pbot}->{webpaste}->paste("$context->{from} <$context->{nick}> $context->{text}\n\n$original_result");
my $message = "And that's all I have to say about that. See $link for full text.";
if ($use_output_queue) { if ($use_output_queue) {
my $message = { my $message = {
nick => $context->{nick}, nick => $context->{nick},
user => $context->{user}, user => $context->{user},
host => $context->{host}, host => $context->{host},
command => $context->{command}, command => $context->{command},
message => "And that's all I have to say about that. See $link for full text.", message => $message,
checkflood => 1 checkflood => 1
}; };
$self->add_message_to_output_queue($context->{from}, $message, 0); $self->add_message_to_output_queue($context->{from}, $message, 0);
} else { } else {
unless ($context->{from} eq 'stdin@pbot') { unless ($context->{from} eq 'stdin@pbot') {
$self->{pbot}->{conn}->privmsg($context->{from}, "And that's all I have to say about that. See $link for full text."); $self->{pbot}->{conn}->privmsg($context->{from}, $message);
} }
} }
@ -681,11 +683,11 @@ sub handle_result {
if ($use_output_queue) { if ($use_output_queue) {
my $delay = rand(10) + 5; my $delay = rand(10) + 5;
my $message = { my $message = {
nick => $context->{nick}, nick => $context->{nick},
user => $context->{user}, user => $context->{user},
host => $context->{host}, host => $context->{host},
command => $context->{command}, command => $context->{command},
message => $line, message => $line,
checkflood => 1, checkflood => 1,
}; };
$self->add_message_to_output_queue($context->{from}, $message, $delay); $self->add_message_to_output_queue($context->{from}, $message, $delay);