chat_post_personal_message db msg user_id chatter_idWhat it does:
Post a personal message from USER_ID to CHATTER_IDDefined in: /web/philip/tcl/chat-defs.tcl
Source code:
set client_ip_address [peeraddr] set bowdlerized_msg [bowdlerize_text $msg] if {[string compare $msg $bowdlerized_msg]} { set bowdlerized_msg "" } if {![empty_string_p $msg]} { ns_db dml $db "insert into chat_msgs (chat_msg_id, msg, msg_bowdlerized, content_tag, creation_date, creation_user, creation_ip_address, recipient_user) values (chat_msg_id_sequence.nextval, '$msg', '$bowdlerized_msg', '[tag_content $msg]', sysdate, $user_id, '$client_ip_address',$chatter_id)" } return