Yeah, i saw where I did wrong and will fix it shortly.
Can you post the msl code to see what approach was used? I'm asking cos there's a delay between the clones joining and when the lock, ban and kicking starts.
Code: Select all
namespace eval CloneTest {
bind join - * [namespace current]::check
proc check {nick uhost hand chan} {
putlog "join function triggered!"
}
}
<TCL-Tester> join function triggered!
<TCL-Tester> Annemarie (~Merrilee@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Orosco (~Kisha@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Black (~Mena@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Rhodes (~Snow@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Georgene (~Connell@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Patino (~Concepcion@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Gearldine (~Newberry@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Bettyann (~Lilly@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Buss (~Hayes@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Geer (~Mueller@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Brumfield (~Marcelene@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Kinney (~Cloud@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Chastain (~Evans@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Manns (~Houle@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Carman (~Childers@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
<TCL-Tester> Dean (~Ferguson@testing.clones.net) joined #tcl-test.
<TCL-Tester> join function triggered!
Code: Select all
See last post for code.
Code: Select all
Tcl error [::DeClone::check]: invalid command name "chanlist2"
Code: Select all
set known [chanlist2 $chan $clone(excepts)]
Code: Select all
set known [chanlist $chan $clone(excepts)]
Code: Select all
Tcl error [::DeClone::check]: unbalanced open paren
in expression "(1"