help with ban

[dusk]

I'm using a public kickban command but yesterday I noticed something goes wrong...

Code: Select all

(01:54) Join: tripke (triplelion@d54C1F0D0.access.telenet.be) has join
(01:54) <@reef> !kb tripke
(01:54) * Doogie sets mode: +b *!*triplelio@d54C1F0D0.access.telenet.be
(01:54) Kick: tripke was kicked by Doogie (banned) on #chan
(01:54) Join: tripke (triplelion@d54C1F0D0.access.telenet.be) has join

As you can see the bot doesn't set the correct ban (missing n after triplelio)
This is the proc I'm working with :

Code: Select all

proc kickban {nik uhost hand chn txt} {
global botnick
set nick [lindex $txt 0]
set reas [lrange $txt 1 end]
set target [getchanhost $nick $chn]
set banmask "*!*[string trimleft [string range $target [string first "!" $target] end] ?^~-_+?]"
if {[string tolower $nick] != [string tolower $botnick]} {
if {![string length [string trim $reas]]} {
   set reas "banned by \[${hand}/\002${nik}\002] - Geen reden opgegeven..."} else {
   set reas "banned by \[${hand}/\002${nik}\002] - $reas"}
   
putserv "mode $chn +b $banmask"
putserv "kick $chn $nick $reas"
}
}

If someone could take a look please :$


GRTZ

[Alchera]

Try:

Code: Select all

set target_uhost [getchanhost $nick]
set banmask *!*[lindex [split [maskhost $target_uhost] "!"] 1]