Index: openacs-4/packages/acs-subsite/www/shared/ajax/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/ajax/Attic/chat.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-subsite/www/shared/ajax/chat.tcl 18 Mar 2019 16:49:58 -0000 1.1.2.1 @@ -0,0 +1,55 @@ +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.1.2.1 2019/03/18 16:49:58 antoniop Exp $ + +} -query { + m:word + id:integer + s + msg:optional,allhtml + class:token + {mode ""} +} + +if {[info commands ::xo::ChatClass] eq "" || + ![::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: