une userlist

[BlackNight]

Salut tout le monde.
Je me heure à un souci, auquel je ne sais palier.

J'aurai besoin, d'avoir un eggdrop, qui, toute les 2 minutes, inscrit dans un fichier, les utilisateur présent sur #channel.

De manière a pouvoir récupérer les pseudos et les afficher sur un forum.
ex: Il y a Gerome300, Sasukedu29, BlackNight en ligne.

Vous voyez le genre ?
le seul souci, c'est que, je ne sais absolument pas comment faire, ni par où commencer, donc si vous pouviez m'éclairer, je vous en serai reconnaissant.

[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

[BlackNight]

Merci beaucoup CrazyCat

Je vais pouvoir avancer pas mal avec ça :)