From: dms Date: Tue, 13 Feb 2001 14:07:07 +0000 (+0000) Subject: ban fixes. X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3faefefffc24ed46d3afd7ce1dc8cf4bb5dd23fd;p=infobot.git ban fixes. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@387 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl index 79fba40..e8e341e 100644 --- a/src/IRC/Irc.pl +++ b/src/IRC/Irc.pl @@ -315,7 +315,7 @@ sub performStrictReply { } elsif ($msgType eq 'public') { &say($reply); } elsif ($msgType eq 'chat') { - &dccsay($who,$reply); + &dccsay(lc $who,$reply); } else { &ERROR("pSR: msgType invalid? ($msgType)."); } @@ -446,19 +446,13 @@ sub ban { my (@chans) = ($chan eq "") ? (keys %channels) : lc($chan); my $ban = 0; + &DEBUG("ban: mask = $mask, chan = $chan"); if ($chan ne "" and &validChan($chan) == 0) { &ERROR("ban: invalid channel $chan."); return; } - $nick =~ tr/A-Z/a-z/; - foreach $chan (@chans) { - if (!&IsNickInChan($nick,$chan) and scalar @chans == 1) { - &status("Ban: $nick is not on $chan."); - next; - } - if (!exists $channels{$chan}{o}{$ident}) { &status("Ban: do not have ops on $chan :("); next;