Index: openacs-4/packages/xowiki/www/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/chat.tcl,v diff -u -N --- openacs-4/packages/xowiki/www/chat.tcl 23 Feb 2019 19:02:55 -0000 1.2.2.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,54 +0,0 @@ -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.2.2.1 2019/02/23 19:02:55 gustafn Exp $ - -} -query { - m:word - id:integer - s - msg:optional,allhtml - class:token - {mode ""} -} - -if {![::xo::ChatClass is_chat_p $class]} { - ns_returnnotfound - -} else { - - #ns_log notice "### chat.tcl mode <$mode> class <$class>" - #ns_log notice "--chat m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode" - - $class create c1 -destroy_on_cleanup -chat_id $id -session_id $s -mode $mode - switch -- $m { - add_msg { - #ns_log notice "--c call c1 $m '$msg'" - ns_return 200 application/json [c1 $m $msg] - } - get_new { - ns_return 200 application/json [c1 $m] - } - login - - subscribe - - get_all { - set _ [c1 $m] - ns_return 200 text/html [subst {$_}] - } - default { - ns_log error "--c unknown method $m called." - } - } -} - -ad_script_abort - -#ns_log notice "--chat.tcl $m: returns '$_'" - -# Local variables: -# mode: tcl -# tcl-indent-level: 2 -# indent-tabs-mode: nil -# End: