3
0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-03 16:42:38 +01:00

Commands/ChanOp: silly kick-message shenanigans

This commit is contained in:
Pragmatic Software 2024-11-30 16:40:33 -08:00
parent f172563fdc
commit 4162c06fe4
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
2 changed files with 6 additions and 2 deletions

View File

@ -475,8 +475,12 @@ sub cmd_kick($self, $context) {
if ($context->{keyword} =~ /^[A-Z]+$/) {
$reason = uc $reason;
} elsif ($context->{keyword} eq 'KiCk' or $context->{keyword} eq 'kIcK') {
} elsif ($context->{keyword} eq 'KiCk') {
$reason =~ s/(.)(.)/uc($1) . lc($2)/ge;
} elsif ($context->{keyword} eq 'kIcK') {
$reason =~ s/(.)(.)/lc($1) . uc($2)/ge;
} elsif ($context->{keyword} eq 'KicK') {
$reason =~ s/(\w)(?:(\S*)(\w))?/uc($1) . lc($2) . uc($3)/ge;
}
my @nicks = split /,/, $victim;

View File

@ -25,7 +25,7 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4863,
BUILD_REVISION => 4864,
BUILD_DATE => "2024-11-30",
};