3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 19:22:40 +01:00
pbot/lib/PBot/Core/Handlers/Chat.pm
2023-04-13 21:04:12 -07:00

93 lines
2.8 KiB
Perl

# File: Chat.pm
#
# Purpose: IRC handlers for chat/message events.
# SPDX-FileCopyrightText: 2001-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Core::Handlers::Chat;
use PBot::Imports;
use parent 'PBot::Core::Class';
sub initialize($self, %conf) {
$self->{pbot}->{event_dispatcher}->register_handler('irc.notice', sub { $self->on_notice (@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.public', sub { $self->on_public (@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.caction', sub { $self->on_action (@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.msg', sub { $self->on_msg (@_) });
}
sub on_notice($self, $event_type, $event) {
my ($nick, $user, $host, $to, $text) = (
$event->nick,
$event->user,
$event->host,
$event->to,
$event->{args}[0],
);
# don't handle non-chat NOTICE
return undef if $to eq '*';
# log notice
$self->{pbot}->{logger}->log("NOTICE from $nick!$user\@$host to $to: $text\n");
# if NOTICE is sent to the bot then replace the `to` field with the
# sender's nick instead so when we pass it on to on_public ...
if ($to eq $self->{pbot}->{registry}->get_value('irc', 'botnick')) {
$event->{to}[0] = $nick;
}
# handle this NOTICE as a public message
# (check for bot commands, anti-flooding, etc)
$self->on_public($event_type, $event);
return 1;
}
sub on_public($self, $event_type, $event) {
my ($from, $nick, $user, $host, $text, $tags) = (
$event->{to}[0],
$event->nick,
$event->user,
$event->host,
$event->{args}[0],
$event->{args}[1],
);
($nick, $user, $host) = $self->{pbot}->{irchandlers}->normalize_hostmask($nick, $user, $host);
# send text to be processed for bot commands, anti-flood enforcement, etc
$event->{interpreted} = $self->{pbot}->{interpreter}->process_line($from, $nick, $user, $host, $text, $tags);
return 1;
}
sub on_action($self, $event_type, $event) {
# prepend "/me " to the message text
$event->{args}[0] = "/me " . $event->{args}[0];
# pass this along to on_public
$self->on_public($event_type, $event);
return 1;
}
sub on_msg($self, $event_type, $event) {
my ($nick, $user, $host, $text, $tags) = (
$event->nick,
$event->user,
$event->host,
$event->{args}[0],
$event->{args}[1],
);
($nick, $user, $host) = $self->{pbot}->{irchandlers}->normalize_hostmask($nick, $user, $host);
# send text to be processed as a bot command, in "channel" $nick
$event->{interpreted} = $self->{pbot}->{interpreter}->process_line($nick, $nick, $user, $host, $text, $tags, 1);
return 1;
}
1;