cherche tcl pseudo

[T4tou]

bonjour je cherche un tcl qui permet a l eggdrop de metre tous les nick connecter sur un channel dans un html
merci de m aide
Edit by CrazyCat: Pas d'email

[CrazyCat]

Il n'y a pas de tcl comme ça qui existe, mais c'est faisable:

tcl

set canal "#chan"
set fichier "liste.html"
bind join - "$canal *" list:join
bind part - "$canal *" list:part
bind sign - "$canal *" list:quit
 
proc list:join {nick uhost handle chan} { list:log; }
proc list:part {nick uhost handle chan text} {
   if {$nick != $::botnick} { list:log; }
}
proc list:quit {nick uhost handle chan text} {
   if {$nick != $::botnick} { list:log; }
}
proc list:log {} {
   set fp [open $::fichier r]
   foreach cnick [chanlist $::canal] {
      puts $fp $cnick
   }
   close $fp
}

[T4tou]

ca fonction pas et il me dit
cl error [list:join]: couldn't open "/domains/tchatweb.net/public_html/liste.html": permission denied
tu sais maider merci pour la reponse rapid

[T4tou]

ca fonction pas et il me dit
cl error [list:join]: couldn't open "/domains/tchatweb.net/public_html/liste.html": permission denied
j ai essayer tou sl echemmin possible
jpense que cest un probleme de log non?
tu sais maider merci pour la reponse rapid

[CrazyCat]

Tu peux attendre un petit peu avant de upper ? On a aussi un métier et/ou une vie.

Je me suis trompé, c'est:

tcl

set fp [open $::fichier w]

(r = lecture, w = écriture)

[T4tou]

esquse moi ces pas fait expres je voulais rajouter dans citer il a reposter
merci bcp pour ton aide
derniere question sans abuse il a moyen de metre les pseudo exemple Mandarin denise daneel Xaz enfer
mais
Mandarin
denise
daneel
Xaz
enfer
merci et dsler :s

[CrazyCat]

Oui, c'est possible, il suffit de corriger la ligne d'écriture en:

tcl

puts $fp "$cnick\n"

[T4tou]

non ca les mais pas
http://tchatweb.net/liste.html
puts $fp "$cnick\n"
merci

[CrazyCat]

Ah, en rendu html !
Remplace le \n par <br />

[T4tou]

voila j ai rajouter
puts $fp "<br>"
merci pour ton aide ses sympas