nick list dans fichier html

[CrazyCat]

Ouais, j'ai un peu foiré mon code, j'ajoute toujours dans les listes sans retirer... Tout àa à cause d'une erreur d'initialisation (placée au mauvais endroit).
Et pour les couleurs, c'est color et non pas font-color qu'il faut utiliser.
Ce qui donne donc:

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 ::u(op) {}
   set ::u(hop) {}
   set ::u(vop) {}
   set ::u(nop) {}
    foreach cnick [chanlist $::canal] {
        if { $cnick == $::botnick } { continue; }
        if { [isop $cnick $::canal] == 1 } {
            lappend ::u(op) $cnick
        } elseif { [ishalfop $cnick $::canal] == 1 } {
            lappend ::u(hop) $cnick
        } elseif { [isvoice $cnick $::canal] == 1 } {
            lappend ::u(vop) $cnick
        } else {
            lappend ::v(op) $cnick
        }
    }
    save:log
}
 
proc save:log {} {
   set fp [open $::fichier w]
   foreach nick $::u(op) {
      puts $fp "<span style='color:red;'>@$nick</span><br />"
   }
   foreach nick $::u(hop) {
      puts $fp "<span style='color:blue;'>%$nick</span><br />"
   }
   foreach nick $::u(vop) {
      puts $fp "<span style='color:yellow;'>+$nick</span><br />"
   }
   foreach nick $::u(nop) {
      puts $fp "<span style='color:green;'>$nick</span><br />"
   }
   close $fp
}
 
##########
# Putlog #
##########
#
putlog "nick list par CrazyCat"