Index: openacs-4/packages/chat/www/ajax/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/ajax/Attic/chat.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/chat/www/ajax/chat.tcl 19 Nov 2007 01:14:17 -0000 1.4
+++ openacs-4/packages/chat/www/ajax/chat.tcl 22 Nov 2016 18:34:35 -0000 1.4.6.1
@@ -13,9 +13,12 @@
set ban_p [permission::permission_p -object_id $id -privilege "chat_ban"]
if {$ban_p} {
- ns_return 200 text/html "
\
- [_ chat.You_dont_have_permission_room]
\
- "
+ ns_return 200 text/html "
+
+ \
+ [_ chat.You_dont_have_permission_room]
\
+
+ "
ad_script_abort
}
@@ -26,31 +29,22 @@
switch -- $m {
add_msg {
- # i see no reason, why this is limited to 200 characters.... GN
- # do not allow messages longer than 200 characters
- #if { [string length $msg] > 200 } {
- # set msg [string range $msg 0 200]
- #}
- # do not insert empty messages, if they managed to get here
- if { $msg ne "" } {
- set message_output [c1 add_msg $msg]
- if { [c1 current_message_valid] } {
- chat_message_post $id [c1 user_id] $msg 1
- }
- }
+ set message_output [c1 add_msg $msg]
}
login - get_new - get_all {
- set message_output [c1 $m]
+ set message_output [c1 $m]
}
get_updates {
set message_output [c1 get_new]
set user_output [c1 get_users]
}
get_users {
- c1 encoder noencode
- set user_output [c1 get_users]
+ c1 encoder noencode
+ set user_output [c1 get_users]
}
- default {ns_log error "--c unknown method $m called."}
+ default {
+ ns_log error "--c unknown method $m called."
+ }
}
set output "