Communauté sur les Eggdrops - Community about Eggdrops
une userlist - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: une userlist (/showthread.php?tid=468)



une userlist - BlackNight - 29/07/2009

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.


RE: une userlist - CrazyCat - 29/07/2009

Le script est assez simple à faire:

tcl
# 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




RE: une userlist - BlackNight - 31/07/2009

Merci beaucoup CrazyCat

Je vais pouvoir avancer pas mal avec ça :)