tcl
bind pub - !debout pub_debout
proc pub_debout { nick uhost handle channel arg } {
set userlist [join [chanlist $channel]]
putserv "PRIVMSG $channel :Les présents sont $userlist]"
return 0
}
Par contre, s'il y a trop d'utilisateurs, le message sera coupé