bind join -|- * text
bind pubm -|- * example
proc test {nick uhost handle channel} {
set ex($nick) 1
return 0
}
proc example {nick uhost handle channel text} {
global ex
putlog "ex($nick) is $ex($nick)"
return 0
}
set array ex {}
Tcl error [example]: can't read "ex(nandu)": no such element in array
bind join -|- * text
bind pubm -|- * example
proc test {nick uhost handle channel} {
set ex($nick) 1
return 0
}
proc example {nick uhost handle channel text} {
global ex
putlog "ex($nick) is $ex($nick)"
return 0
}
set array ex {}
Tcl error [example]: can't read "ex(nandu)": no such element in array
the proc name doest match "bind join -|- * text" "proc test {nick uhost handle channel} {"