Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


nick list
#1
bonjour merci pour pour l aide hier
j aurais bien voulus ameliorer ce code rajouter un fond de couleur et cganger la couleur des nick
plus afficher le status de luser si il est op voice owner ect...
voici le code

tcl
set canal "#bienvenue"
set fichier "/home/mandarin/domains/tchatweb.net/public_html/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 w]
foreach cnick [chanlist $::canal] {
puts $fp "$cnick"
puts $fp "<br>"
 
}
close $fp
}

merci bcp de l aide

Edit: merci d'utiliser les balises [ tcl ]
#2
Pour le statut des utilisateurs, il y a l'exemple dans chanrelay, voici ce que ça donne mis dans ton script:

tcl
set canal "#bienvenue"
set fichier "/home/mandarin/domains/tchatweb.net/public_html/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 w]
    foreach cnick [chanlist $::canal] {
        if { $cnick == $::botnick } { continue; }
        if { [isop $cnick $::canal] == 1 } {
            set st "@"
        } elseif { [ishalfop $cnick $::canal] == 1 } {
            set st "%"
        } elseif { [isvoice $cnick $::canal] == 1 } {
            set st "%"
        } else {
            set st ""
        }
        puts $fp "$st$cnick<br />"
    }
    close $fp
}

Pour le background et autres mises en page, je te conseille de plutôt faire une page qui incluera le liste.html (soit en php soit en SSI), ce sera bien plus souple

Edit: script corrigé
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
merci pour ta reponse mais j ai plus de nick qui s affiche
http://tchatweb.net/liste.html
#4
T4tou Wrote:merci pour ta reponse mais j ai plus de nick qui s affiche
http://tchatweb.net/liste.html

j ai oublier voici l erreur
Tcl error [list:part]: can't read "::crelay::me(chan)": no such variable
#5
salut peut etre ajouter en debut de tcl un truc du style :


tcl
set crelay "#bienvenue"



cordialemement.
#6
Arf non, copier/coller trop rapide.
Il faut remplacer $::crelay::me(chan) par $::canal
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  Modifier un nick par badnick pheeric 8 1,452 01/11/2020, 23:20
Last Post: pheeric
  [Demande] Opé Sur Host et Non sur Nick BaGrift 16 10,171 26/06/2014, 13:48
Last Post: BaGrift
  Déclarer $nick dans msgcat. aliasangelius 5 4,944 04/09/2012, 16:27
Last Post: CrazyCat
  nick list dans fichier html loulou7593 20 11,787 04/02/2012, 18:43
Last Post: djkenny
  nick non register msg cestlemien 11 6,912 20/12/2010, 23:20
Last Post: alanfollow
  Beug changement de nick. IluZi0n 3 4,393 06/04/2009, 23:51
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)