hi, i tried my best, read tcl documentation but couldn't figure out, i'll appreciate if someone can help me
everytime when i type in partyline .rehash, i get this
<egg_> [05:11] Tcl error in file 'egg.conf':
<egg_> [05:11] no such binding
<egg_> while executing
<egg_> "unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:ctcp:badword"
<egg_> ("foreach" body line 3)
<egg_> invoked from within
<egg_> "foreach temp(bind) [binds ctcp] {
<egg_> if {[lindex $temp(bind) 4] == "wordkick:ctcp:badword"} {
<egg_> unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2..."
<egg_> (file "scripts/wordkick.tcl" line 45)
<egg_> invoked from within
<egg_> "source scripts/wordkick.tcl"
<egg_> (file "egg.conf" line 1319)
<egg_> [05:11] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
codes:
wordkick(badwords) {
*badword1*
*badword2*
badword3
....
}
foreach temp(bind) [binds pubm] {
if {[lindex $temp(bind) 4] == "wordkick:pubm:badword"} {
unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:pubm:badword
}
}
foreach temp(bind) [binds ctcp] {
if {[lindex $temp(bind) 4] == "wordkick:ctcp:badword"} {
unbind pubm [lindex $temp(bind) 1] [lindex $temp(bind) 2] wordkick:ctcp:badword
}
}
foreach temp(word) [split $wordkick(badwords) \n] {
set temp(word) [string trim $temp(word) " \t"]
if {$temp(word) == ""} {continue}
bind pubm - "% $temp(word)" wordkick:pubm:badword
}
bind ctcp - ACTION wordkick:ctcp:badword
proc wordkick:ctcp:badword {nick uhost handle channel key text} {
global wordkick
foreach temp(word) [split $wordkick(badwords) \n] {
set temp(word) [string trim $temp(word) " \t"]
if {$temp(word) == ""} {continue}
if {[string match $temp(word) $text]} {
wordkick:badword $nick $uhost $handle $channel
return 0
}
}
}
proc wordkick:pubm:badword {nick uhost handle channel text} {
wordkick:badword $nick $uhost $handle $channel
return 0
}
proc wordkick:badword {nick uhost handle channel} {
.
.
.
.
}
i'll appreciate for your help
thanks