OpenACS

hectorr
committed
MAIN:hectorr:20180919132220
on 19 Sep 18
Add editor hints + Whitespace changes
openacs-4/packages/.../www/ajax/chat.tcl (+8 -2)
23 23 switch -- $m {
24 24   add_msg {
25 25     #ns_log notice "--c call c1 $m '$msg'"
26 26     ns_return 200 application/json [c1 $m $msg]
27 27     ad_script_abort
28 28     #ns_log notice "--c add_msg returns '$_'"
29 29   }
30 30   get_new {
31 31     ns_return 200 application/json [c1 $m]
32 32     ad_script_abort
33 33   }
34 34   login -
35 35   subscribe -
36 36   get_all {set _ [c1 $m]}
37 37   default {ns_log error "--c unknown method $m called."}
38 38 }
39 39
40 40 #ns_log notice "--chat.tcl $m: returns '$_'"
41 41
42 42 ns_return 200 text/html [subst {<HTML><body>$_</body></HTML>}]
  43
  44 # Local variables:
  45 #    mode: tcl
  46 #    tcl-indent-level: 4
  47 #    indent-tabs-mode: nil
  48 # End: