mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-26 22:09:26 +01:00
ChanOpCommands: uppercase kick reason if kick
command is uppercased
This commit is contained in:
parent
be2376cf4b
commit
7e31a3ee26
@ -642,6 +642,10 @@ sub cmd_kick {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if ($context->{keyword} =~ /^[A-Z]+$/) {
|
||||||
|
$reason = uc $reason;
|
||||||
|
}
|
||||||
|
|
||||||
my @nicks = split /,/, $victim;
|
my @nicks = split /,/, $victim;
|
||||||
foreach my $n (@nicks) {
|
foreach my $n (@nicks) {
|
||||||
if ($n =~ m/\*/) {
|
if ($n =~ m/\*/) {
|
||||||
|
Loading…
Reference in New Issue
Block a user