From a453518fab59c7e2666faa9857dda2a07280fd37 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 28 Sep 2024 12:19:37 -0700
Subject: [PATCH] AntiFlood: add some missing nickserv account case
 normalization

---
 lib/PBot/Core/AntiFlood.pm | 8 ++++----
 lib/PBot/VERSION.pm        | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/PBot/Core/AntiFlood.pm b/lib/PBot/Core/AntiFlood.pm
index bcd980cd..329fd1dc 100644
--- a/lib/PBot/Core/AntiFlood.pm
+++ b/lib/PBot/Core/AntiFlood.pm
@@ -199,8 +199,8 @@ sub check_flood($self, $channel, $nick, $user, $host, $text, $max_messages, $max
         my $tags = $self->{pbot}->{irc}->get_tags($context->{tags});
 
         if (defined $tags->{account}) {
-            my $nickserv_account = $tags->{account};
-            my $current_nickserv_account = $self->{pbot}->{messagehistory}->{database}->get_current_nickserv_account($account);
+            my $nickserv_account = lc $tags->{account};
+            my $current_nickserv_account = lc $self->{pbot}->{messagehistory}->{database}->get_current_nickserv_account($account);
 
             if ($self->{pbot}->{registry}->get_value('irc', 'debug_tags')) {
                 $self->{pbot}->{logger}->log("($account) $mask got account-tag $nickserv_account\n");
@@ -621,7 +621,7 @@ sub check_bans($self, $message_account, $mask, $channel, $dry_run = 0) {
 
     my $debug_checkban = $self->{pbot}->{registry}->get_value('antiflood', 'debug_checkban');
 
-    my $current_nickserv_account = $self->{pbot}->{messagehistory}->{database}->get_current_nickserv_account($message_account);
+    my $current_nickserv_account = lc $self->{pbot}->{messagehistory}->{database}->get_current_nickserv_account($message_account);
 
     $self->{pbot}->{logger}->log("anti-flood: [check-bans] checking for bans on ($message_account) $mask "
           . (defined $current_nickserv_account and length $current_nickserv_account ? "[$current_nickserv_account] " : "")
@@ -892,7 +892,7 @@ sub on_whoisaccount($self, $event_type, $event) {
 sub on_accountnotify($self, $event_type, $event) {
     my $mask = $event->{from};
     my ($nick, $user, $host) = $mask =~ m/^([^!]+)!([^@]+)@(.*)/;
-    my $account = $event->{args}[0];
+    my $account = lc $event->{args}[0];
     my $id = $self->{pbot}->{messagehistory}->{database}->get_message_account($nick, $user, $host);
 
     $self->{pbot}->{messagehistory}->{database}->update_hostmask_data($mask, {last_seen => scalar gettimeofday});
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index cb9e9c6b..e71dd58b 100644
--- a/lib/PBot/VERSION.pm
+++ b/lib/PBot/VERSION.pm
@@ -25,8 +25,8 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4790,
-    BUILD_DATE     => "2024-09-23",
+    BUILD_REVISION => 4791,
+    BUILD_DATE     => "2024-09-28",
 };
 
 sub initialize {}