Index: openacs-4/packages/xowiki/www/ajax/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/ajax/Attic/chat.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/xowiki/www/ajax/chat.tcl 7 Aug 2017 23:48:31 -0000 1.9 +++ openacs-4/packages/xowiki/www/ajax/chat.tcl 28 Sep 2018 11:44:23 -0000 1.10 @@ -17,39 +17,24 @@ switch -- $m { add_msg { #ns_log notice "--c call c1 $m '$msg'" - set _ [c1 $m $msg] + ns_return 200 application/json [c1 $m $msg] + ad_script_abort #ns_log notice "--c add_msg returns '$_'" } + get_new { + ns_return 200 application/json [c1 $m] + ad_script_abort + } login - subscribe - - get_new - get_all {set _ [c1 $m]} - default {ns_log error "--c unknown method $m called."} + default {ns_log error "--c unknown method $m called."} } #ns_log notice "--chat.tcl $m: returns '$_'" -set style { - padding:1em 0 1em 1em; - background-color: #f9f9f9; - font-size:.95em; - color:#333; - overflow:auto; -} +ns_return 200 text/html [subst {$_}] -ns_return 200 text/html " - - - -$_ - -" - # Local variables: # mode: tcl # tcl-indent-level: 2