how to change?

[mm]

could you please?


thanks

[De Kus]

without any warranty

Code: Select all

bind filt - ".+ban *" banfilter

proc banfilter {idx text} {
   set text [split $text]
   set chan [lindex $text [set ci [lsearch -glob [lrange $text 0 4] #*]]]
   set reason [lreplace $text $ci $ci]
   set dur [lindex $reason [set di [lsearch -glob [lrange $reason 0 3] \%*]]]
   set reason [lreplace $reason $di $di]
   if { [set reason [lrange $reason 2 end]] == "" } {
      set reason "requested"
   }
   set reason "kicked by [idx2hand $idx] ([ctime [unixtime]]: $reason)"
   return [join [list .+ban $chan $dur $reason]]
}

I am sure I hid some typos or stupid logical errors, but maybe you find them yourself .

One note:
I assumed lreplace behaves like that:

tcl: evaluate (.tcl): lreplace {1 2} -1 -1
Tcl: 1 2

[mm]

Thanks De Kus.

[04:10] Tcl error [banfilter]: invalid command name "replace"

thanks