Enforcebans

[CooLB0Y]

I wanted to ask if there is a way to make a tcl simillar to +enforcebans, with +enforcebans the kick msg shows like this:
[16:36] * CooLB0Y sets mode: +b *!*@221.9.111.127
[16:36] * girl222 was kicked by OmanServ (Banned)

i want the kick reasson to be: girl222 was kicked by OmanServ (Banned by: CooLB0Y).

thanks,

Zadjali

[Sir_Fz]

Code: Select all

bind mode - "* +b" enforcebans

proc enforcebans {nick uhost hand chan mc ban} {
 foreach n [chanlist $chan] {
  if {[string match -nocase $ban $n![getchanhost $n $chan]]} {
   putkick $chan $n "$n was kicked $::botnick (banned by: $nick)"
  }
 }
}

Edit: $::botnick instead of OmanServ.

[CooLB0Y]

Thanks, what about if i want to add the banned ip to the kick reasson?

[Sir_Fz]

$ban is the banned ip.

[CooLB0Y]

Thank you