error in relay.tcl

[YooHoo]

This is an excerpt from cl00bie's relay1.0.0.tcl which i'm encountering a few probs....The eggie errors with this message :

10:35:<GhostRydr> [10:22] Tcl error [send_mode]: called "send_mode" with too many arguments

and I think this is the portion of the TCL that applies.....i hope.....:


proc send_mode {nick uhost hand chan mchg} {
if {[string first "b" [lindex $mchg 0]] != -1} {
send_across "ban" $chan $nick $mchg
}
}
bind mode - * send_mode

anyone see anything amiss by chance? or is more info needed

[Xpert]

You forgot the "vict"

Code: Select all

bind mode - * send_mode
proc send_mode {nick uhost hand chan mchg vict} {
  if {[string first "b" [lindex $mchg 0]]} {
    send_across "ban" $chan $nick $mchg
  }
}