!userlist doesn't work

[cleaner]

Hello,

I have superscript.tcl and this part doesn't work...

It doesn't show user list.

Please help me.

Code: Select all

#userlist

proc pub_do_users {nick uhost hand chan text} {  

     puthelp "PRIVMSG $nick :- \037\002User List\002\037"  

foreach {a b c d} [userlist $chan] {  

     puthelp "PRIVMSG $nick :- [format %-12s%-12s%-12s%-12s $a $b $c $d]" 

     } 

     puthelp "PRIVMSG $nick :- \037\002User List Completed\002\037" 

}

#end of userlist