Lower-case hostmask and arguments to !unbanme

This commit is contained in:
Pragmatic Software 2010-06-22 03:01:02 +00:00
parent f4fbfec8f6
commit a13d028e3e
2 changed files with 5 additions and 3 deletions

View File

@ -285,7 +285,9 @@ sub prune_message_history {
sub unbanme {
my ($self, $from, $nick, $user, $host, $arguments) = @_;
my $channel = $arguments;
my $channel = lc $arguments;
$host = lc $host;
$user = lc $user;
if(not defined $channel) {
return "/msg $nick Usage: unbanme <channel>";
@ -293,7 +295,7 @@ sub unbanme {
my $banmask = address_to_mask($host);
my $mask = "*!$user\@$banmask\$##stop_join_flood";
my $mask = lc "*!$user\@$banmask\$##stop_join_flood";
if(not exists $self->{pbot}->{chanops}->{unban_timeout}->hash->{$mask}) {
return "/msg $nick There is no temporary ban set for $mask in channel $channel.";

View File

@ -13,7 +13,7 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 195,
BUILD_REVISION => 197,
BUILD_DATE => "2010-06-21",
};