Probleme de commande quizz

[loulou7593]

Bonjour,

J'ai procédé comme ceci

tclcopier

proc rot:rotation {} {
global rotation
global fname
set f [open "$fname" "a"]
puts $f "KAOSFile=scripts/[lindex $rotation(msgs) [rand [llength $rotation(msgs)]]]"
close $f
foreach channel $rotation(chans) {
   rehash
   puthelp "PRIVMSG $channel :Rotation de la base de donnée"
   puthelp "privmsg $channel :Mise à jour du quizz Veuillez patienter. Redemarrage en cours :)."
   utimer 20 [list KAOS_Start $::botnick [getchanhost $::botnick $channel] $::botnick $channel ""]
}
 
if {(($rotation(time) != 0) && (![string match "*rot:rotation*" [timers]]))} {
   timer $rotation(time) rot:rotation
}
return 1
}

Je n'ai plus d'erreur en PL mais par contre ca ne relance pas le quizz.

Je joint le TCL entier en piece jointe ce sera peut etre plus comprehensible.

[attachment=242]