01/01/2012, 23:51
j'ai bien ajouté comme ceci
toujours une erreur en PL
tcl
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 KAOS_Start $::botnick [getchanhost $::botnick $channel] $::botnick $channel ""
}
if {(($rotation(time) != 0) && (![string match "*rot:rotation*" [timers]]))} {
timer $rotation(time) rot:rotation
}
return 1
}
toujours une erreur en PL
Code :
[22:36:00] Tcl error in script for 'timer101358':
[22:36:00] wrong # args: should be "utimer seconds command"