GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-30 07:59:42 +01:00
Code Issues Projects Releases Wiki Activity

IRCHandlers: fix incorrect $mode_char use

Browse Source
This commit is contained in:
Pragmatic Software 2021-07-06 18:42:44 -07:00
parent af4540e54e
commit 605e3b14b1
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
PBot/IRCHandlers.pm
View File

@ -98,6 +98,8 @@ sub default_handler {
if (not defined $result and $self->{pbot}->{registry}->get_value('irc', 'log_default_handler')) { if (not defined $result and $self->{pbot}->{registry}->get_value('irc', 'log_default_handler')) {
$Data::Dumper::Sortkeys = 1; $Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 2;
$Data::Dumper::Useqq = 1;
$self->{pbot}->{logger}->log(Dumper $event); $self->{pbot}->{logger}->log(Dumper $event);
} }
} }
@ -328,10 +330,10 @@ sub on_mode {
($nick, $user, $host) = $self->normalize_hostmask($nick, $user, $host); ($nick, $user, $host) = $self->normalize_hostmask($nick, $user, $host);
my $i = 0; my $i = 0;
my ($mode, $mode_char, $modifier, $target); my ($modifier, $char, $mode, $target);
while ($mode_string =~ m/(.)/g) { while ($mode_string =~ m/(.)/g) {
my $char = $1; $char = $1;
if ($char eq '-' or $char eq '+') { if ($char eq '-' or $char eq '+') {
$modifier = $char; $modifier = $char;
@ -356,7 +358,7 @@ sub on_mode {
# TODO: here as well # TODO: here as well
if ($modifier eq '-') { if ($modifier eq '-') {
$self->{pbot}->{nicklist}->delete_meta($channel, $target, "+$mode_char"); $self->{pbot}->{nicklist}->delete_meta($channel, $target, "+$char");
} else { } else {
$self->{pbot}->{nicklist}->set_meta($channel, $target, $mode, 1); $self->{pbot}->{nicklist}->set_meta($channel, $target, $mode, 1);
} }
@ -367,9 +369,9 @@ sub on_mode {
if (defined $modes) { if (defined $modes) {
if ($modifier eq '+') { if ($modifier eq '+') {
$modes = '+' if not length $modes; $modes = '+' if not length $modes;
$modes .= $mode_char; $modes .= $char;
} else { } else {
$modes =~ s/\Q$mode_char//g; $modes =~ s/\Q$char//g;
} }
# TODO: here as well # TODO: here as well