/*
* $Id$
*/
-/**
- * \defgroup PageFunc Functions which implement the chat and paging facilities.
- * \ingroup ClientPower
- */
-/*@{*/
+
#include "webcit.h"
-/**
- * \brief display the form for paging (x-messaging) another user
+/*
+ * display the form for paging (x-messaging) another user
*/
void display_page(void)
{
output_headers(0, 0, 0, 0, 0, 0);
hprintf("Content-type: text/html; charset=utf-8\r\n");
+ begin_burst();
wprintf("<html>\n"
"<head>\n"
"<meta http-equiv=\"refresh\" content=\"3\" />\n"
output_headers(0, 0, 0, 0, 0, 0);
hprintf("Content-type: text/html; charset=utf-8\r\n");
+ begin_burst();
wprintf("<HTML>"
"<BODY onLoad=\"document.chatsendform.send_this.focus();\" >"
);
wDumpContent(0);
}
+
+void ajax_send_instant_message(void) {
+ char recp[256];
+ char buf[256];
+
+ safestrncpy(recp, bstr("recp"), sizeof recp);
+
+ serv_printf("SEXP %s|-", recp);
+ serv_getln(buf, sizeof buf);
+
+ if (buf[0] == '4') {
+ text_to_server(bstr("msg"));
+ serv_puts("000");
+ }
+
+ escputs(buf); /* doesn't really matter what we return - the client ignores it */
+}
+
+
void
InitModule_PAGING
(void)
WebcitAddUrlHandler(HKEY("chat"), do_chat, 0);
WebcitAddUrlHandler(HKEY("chat_recv"), chat_recv, 0);
WebcitAddUrlHandler(HKEY("chat_send"), chat_send, 0);
+ WebcitAddUrlHandler(HKEY("ajax_send_instant_message"), ajax_send_instant_message, AJAX);
}
-/*@}*/
+
+void
+SessionDestroyModule_CHAT
+(wcsession *sess)
+{
+ if (sess->chat_sock > 0)
+ close(sess->chat_sock);
+}