TCL Service

[fedora]

Bonjour,

je rencontre un souci concernant une erreur assez génante car je trouve pas d'ou vient le souci.le Service est bien link au serveur,aucun souci dessus.

erreurs PL

Tcl error [::eva_tcl::xop]: can't read "eva(idx)": no such variable

code

tclcopier

bind dcc n xop [namespace current]::xop
proc xop {nick idx args} {
variable eva
if [valididx [set [namespace current]::eva(idx)]] {
set chan [lindex $args 0]
set opnick [lindex $args 1]
if {$chan==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>."
return 0
}
if {$opnick==""} {
putdcc $idx "\2Syntax:\2 .xop <Salon> <pseudo>." 
return 0
}
putdcc $eva(idx) ":$eva(serv) MODE $chan +o $opnick"
putdcc $eva(idx) ":$eva(serv) $eva(log) :\2\[Commande\]\21 $nick \2->\2 xop"
catch {close $eva(idx)}
}
}