choisir un fichier aleatoire

[CrazyCat]

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/$QUIZZFile"
close $f
puthelp "PRIVMSG #chan :rotation des questions"
}

Par contre, il faut vérifier ce qui est mis dans $QUIZZFile: le fichier ou path + fichier.
Vive le putlog.