ad_page_contract { a tiny chat client @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at) @creation-date Jan 31, 2006 @cvs-id $Id: chat.tcl,v 1.4.2.2 2007/08/01 21:39:26 gustafn Exp $ } -query { m id s msg:optional {mode ""} } #ns_log notice "--c m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode" ::xowiki::Chat c1 -volatile -chat_id $id -session_id $s -mode $mode switch -- $m { add_msg { #ns_log notice "--c call c1 $m '$msg'" set _ [c1 $m $msg] #ns_log notice "--c add_msg returns '$_'" } login - subscribe - get_new - get_all {set _ [c1 $m]} default {ns_log error "--c unknown method $m called."} } ns_return 200 text/html "