Lister les utilisateurs en tcl

[Dani]

bind pub - !debout debout
proc debout { nick host hand chan arg } {
global vhostniv0 debout
foreach vhost $vhostniv0 {
if [string match -nocase $vhost $host] {
putquick "PRIVMSG $chan Driing Driing Le Reveil Sonne !!!"
putquick "PRIVMSG $chan 7Tout le monde debout, sur $chan on change de cimetiereeeeeeeeeeeeeee!!!!!!"
putquick "PRIVMSG $chan WAKE UP !!!"
putquick "NOTICE $chan 7WAAAAKE UUUUP !!"
logcomm "$nick !reveil $chan"
}
}
}


comment puis je faire qu'il dise tous les pseudos du salon ?