We in the University of Valencia are using the packages chat, dotlrn-chat and chat-portlet, you could send us the code of the chat server written in tcl
Thank you