chat_post_personal_message

one of the documented procedures in this installation of the ACS
Usage:
chat_post_personal_message   db   msg   user_id   chatter_id
What it does:
Post a personal message from USER_ID to CHATTER_ID
Defined 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


philg@mit.edu