une userlist

[CrazyCat]

Le script est assez simple à faire:

tclcopier

# Paramètres
set userlist(chan) "#canal"
set userlist(file) "./fichier.txt"
set userlist(refresh) 2

# Système d'enregistrement
proc user:list {} {
   # Création de la liste des utilisateur
   set userlist [join [chanlist $::userlist(chan)] ,]
   # Ecriture du fichier
   set fp [open $::userlist(file) w]
   puts $fp "Il y a $userlist"
   close $fp
   # relance automatique
   timer $::userlist(refresh) user:list
}

# Lancement pour la première fois
user:list