choisir un fichier aleatoire

[loulou7593]

J'ai testé comme ca

tclcopier

bind time -|- {*/2 * * * *} ::AutoRotation
 
proc ::AutoRotation {min hour args} {
global botnick fname
set mydb [glob -dir scripts *.db]
set QUIZZFile [lindex $mydb [rand [llength $mydb]]]
set f [open "$fname" "a"]
puts $f "QUIZZFile=scripts/$mydb"
close $f
puthelp "PRIVMSG #chan :rotation des questions"
}

Cela ne marche pas et je n'ai aucune erreur en PL :s