nick list dans fichier html

[loulou7593]

Bonjour, je viens car j'avais trouvé à une periode
un petit tcl qui permet d'enregistrer la liste des users dans un fichier html.

Voici le code

tclcopier

###################################
########### Liste users ###########
###################################
 
set canal "#accueil"
set fichier "/home/loulou/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
}

##########
# Putlog #
##########
#
putlog "nick list par CrazyCat"

Le systeme de differencier les @, les % et les normaux fonctionne bien, j'aurais aimer savoir si il etait possible sur cette page html d'y mettre un fond, et d'associer par exemple la couleur rouge pour les @, Bleue pour les % et Vert pour les normaux mais aussi de classer par ordre sur le fichier par exemple les @ en premiers , les % en deuxiemes et les normaux en troisiemes.

comme ceci

@Niubot
@Popcorn
%loulou
%steph
%Tiger
ben
joe
cindy

Si quelqu'un peut m'aider, merci d'avance