5 * \defgroup PageFunc Functions which implement the chat and paging facilities.
12 * \brief display the form for paging (x-messaging) another user
14 void display_page(void)
18 strcpy(recp, bstr("recp"));
20 output_headers(1, 1, 2, 0, 0, 0);
21 wprintf("<div id=\"banner\">\n");
23 wprintf(_("Send instant message"));
27 wprintf("<div id=\"content\" class=\"service\">\n");
29 wprintf("<div class=\"fix_scrollbar_bug\">"
30 "<table class=\"paging_background\"><tr><td>\n");
32 wprintf(_("Send an instant message to: "));
36 wprintf("<FORM METHOD=\"POST\" action=\"page_user\">\n");
37 wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
38 wprintf("<input type=\"hidden\" name=\"template\" value=\"who\">\n");
40 wprintf("<TABLE border=0 width=100%%><TR><TD>\n");
42 wprintf("<INPUT TYPE=\"hidden\" NAME=\"recp\" VALUE=\"");
46 wprintf(_("Enter message text:"));
49 wprintf("<TEXTAREA NAME=\"msgtext\" wrap=soft ROWS=5 COLS=40 "
50 "WIDTH=40></TEXTAREA>\n");
52 wprintf("</TD></TR></TABLE><br />\n");
54 wprintf("<INPUT TYPE=\"submit\" NAME=\"send_button\" VALUE=\"%s\">", _("Send message"));
55 wprintf("<br /><a href=\"javascript:window.close();\"%s</A>\n", _("Cancel"));
57 wprintf("</FORM></CENTER>\n");
58 wprintf("</td></tr></table></div>\n");
63 * \brief page another user
70 safestrncpy(recp, bstr("recp"), sizeof recp);
72 if (!havebstr("send_button")) {
73 safestrncpy(WC->ImportantMessage,
74 _("Message was not sent."),
75 sizeof WC->ImportantMessage
78 serv_printf("SEXP %s|-", recp);
79 serv_getln(buf, sizeof buf);
82 text_to_server(bstr("msgtext"));
84 stresc(buf, 256, recp, 0, 0);
85 snprintf(WC->ImportantMessage,
86 sizeof WC->ImportantMessage,
88 _("Message has been sent to "),
93 safestrncpy(WC->ImportantMessage, &buf[4], sizeof WC->ImportantMessage);
103 * \brief multiuser chat
109 /** First, check to make sure we're still allowed in this room. */
110 serv_printf("GOTO %s", WC->wc_roomname);
111 serv_getln(buf, sizeof buf);
113 smart_goto("_BASEROOM_");
118 * If the chat socket is still open from a previous chat,
119 * close it -- because it might be stale or in the wrong room.
121 if (WC->chat_sock < 0) {
122 close(WC->chat_sock);
123 WC->chat_sock = (-1);
127 * WebCit Chat works by having transmit, receive, and refresh
128 * frames. Load the frameset. (This isn't AJAX but the headers
129 * output by begin_ajax_response() happen to be the ones we need.)
131 begin_ajax_response();
132 do_template("chatframeset", NULL);
139 * \brief display page popup
140 * If there are instant messages waiting, and we notice that we haven't checked them in
141 * a while, it probably means that we need to open the instant messenger window.
143 void page_popup(void)
148 /** JavaScript function to alert the user that popups are probably blocked */
149 wprintf("<script type=\"text/javascript\"> "
150 "function PopUpFailed() { "
154 _("You have one or more instant messages waiting, but the Citadel Instant Messenger "
155 "window failed to open. This is probably because you have a popup blocker "
156 "installed. Please configure your popup blocker to allow popups from this site "
157 "if you wish to receive instant messages.")
160 /** First, do the check as part of our page load. */
162 len = serv_getln(buf, sizeof buf);
163 if ((len >= 3) && (buf[3] == '*')) {
164 if ((time(NULL) - WC->last_pager_check) > 60) {
165 wprintf("<script type=\"text/javascript\">"
166 " var oWin = window.open('static/instant_messenger.html', "
167 " 'CTDL_MESSENGER', 'width=700,height=400'); "
168 " if (oWin==null || typeof(oWin)==\"undefined\") { "
176 /** Then schedule it to happen again a minute from now if the user is idle. */
177 wprintf("<script type=\"text/javascript\"> "
178 " function HandleSslp(sslg_xmlresponse) { "
179 " sslg_response = sslg_xmlresponse.responseText.substr(0, 1); "
180 " if (sslg_response == 'Y') { "
181 " var oWin = window.open('static/instant_messenger.html', 'CTDL_MESSENGER', "
182 " 'width=700,height=400'); "
183 " if (oWin==null || typeof(oWin)==\"undefined\") { "
188 " function CheckPager() { "
189 " new Ajax.Request('sslg', { method: 'get', parameters: CtdlRandomString(), "
190 " onSuccess: HandleSslp } ); "
192 " new PeriodicalExecuter(CheckPager, 30); "
200 * \brief Support function for chat
201 * make sure the chat socket is connected
204 int setup_chat_socket(void) {
207 int good_chatmode = 0;
209 if (WC->chat_sock < 0) {
211 if (!strcasecmp(ctdlhost, "uds")) {
212 /** unix domain socket */
213 sprintf(buf, "%s/citadel.socket", ctdlport);
214 WC->chat_sock = uds_connectsock(buf);
218 WC->chat_sock = tcp_connectsock(ctdlhost, ctdlport);
221 if (WC->chat_sock < 0) {
225 /** Temporarily swap the serv and chat sockets during chat talk */
227 WC->serv_sock = WC->chat_sock;
230 serv_getln(buf, sizeof buf);
232 serv_printf("USER %s", WC->wc_username);
233 serv_getln(buf, sizeof buf);
235 serv_printf("PASS %s", WC->wc_password);
236 serv_getln(buf, sizeof buf);
238 serv_printf("GOTO %s", WC->wc_roomname);
239 serv_getln(buf, sizeof buf);
242 serv_getln(buf, sizeof buf);
251 /** Unswap the sockets. */
253 WC->serv_sock = WC->chat_sock;
256 if (!good_chatmode) close(WC->serv_sock);
265 * \brief Receiving side of the chat window.
266 * This is implemented in a
267 * tiny hidden IFRAME that just does JavaScript writes to
268 * other frames whenever it refreshes and finds new data.
270 void chat_recv(void) {
274 int end_chat_now = 0;
278 char *output_data = NULL;
280 output_headers(0, 0, 0, 0, 0, 0);
282 hprintf("Content-type: text/html; charset=utf-8\r\n");
285 "<meta http-equiv=\"refresh\" content=\"3\" />\n"
288 "<body bgcolor=\"#FFFFFF\">\n"
291 if (setup_chat_socket() != 0) {
292 wprintf(_("An error occurred while setting up the chat socket."));
293 wprintf("</BODY></HTML>\n");
299 * See if there is any chat data waiting.
301 output_data = strdup("");
304 pf.fd = WC->chat_sock;
307 if (poll(&pf, 1, 1) > 0) if (pf.revents & POLLIN) {
310 /** Temporarily swap the serv and chat sockets during chat talk */
312 WC->serv_sock = WC->chat_sock;
315 serv_getln(buf, sizeof buf);
317 if (!strcmp(buf, "000")) {
319 strcat(buf, _("Now exiting chat mode."));
323 /** Unswap the sockets. */
325 WC->serv_sock = WC->chat_sock;
328 /** Append our output data */
329 output_data = realloc(output_data, strlen(output_data) + strlen(buf) + 4);
330 strcat(output_data, buf);
331 strcat(output_data, "\n");
334 } while ( (got_data) && (!end_chat_now) );
337 close(WC->chat_sock);
338 WC->chat_sock = (-1);
339 wprintf("<img src=\"static/blank.gif\" onLoad=\"parent.window.close();\">\n");
342 if (!IsEmptyStr(output_data)) {
344 len = strlen(output_data);
345 if (output_data[len-1] == '\n') {
346 output_data[len-1] = 0;
349 /** Output our fun to the other frame. */
350 wprintf("<img src=\"static/blank.gif\" WIDTH=1 HEIGHT=1\n"
354 for (i=0; i<num_tokens(output_data, '\n'); ++i) {
355 extract_token(buf, output_data, i, '\n', sizeof buf);
356 extract_token(cl_user, buf, 0, '|', sizeof cl_user);
357 extract_token(cl_text, buf, 1, '|', sizeof cl_text);
359 if (strcasecmp(cl_text, "NOOP")) {
361 wprintf("parent.chat_transcript.document.write('");
363 if (strcasecmp(cl_user, WC->last_chat_user)) {
364 wprintf("<TABLE border=0 WIDTH=100%% "
365 "CELLSPACING=1 CELLPADDING=0 "
366 "BGCOLOR="#FFFFFF">"
367 "<TR><TD></TR></TD></TABLE>"
372 wprintf("<TABLE border=0 WIDTH=100%% "
373 "CELLSPACING=0 CELLPADDING=0 "
374 "BGCOLOR="#EEEEEE">");
378 if (!strcasecmp(cl_user, ":")) {
382 if (strcasecmp(cl_user, WC->last_chat_user)) {
385 if (!strcasecmp(cl_user, WC->wc_fullname)) {
386 wprintf("<FONT COLOR="#FF0000">");
389 wprintf("<FONT COLOR="#0000FF">");
393 wprintf("</FONT>: </B>");
396 wprintf(" ");
399 if (!strcasecmp(cl_user, ":")) {
403 wprintf("</TD></TR></TABLE>");
406 strcpy(WC->last_chat_user, cl_user);
410 wprintf("parent.chat_transcript.scrollTo(999999,999999);\">\n");
415 wprintf("</BODY></HTML>\n");
421 * \brief sending side of the chat window
423 void chat_send(void) {
428 output_headers(0, 0, 0, 0, 0, 0);
429 hprintf("Content-type: text/html; charset=utf-8\r\n");
431 "<BODY onLoad=\"document.chatsendform.send_this.focus();\" >"
434 if (havebstr("send_this")) {
435 strcpy(send_this, bstr("send_this"));
438 strcpy(send_this, "");
441 if (havebstr("help_button")) {
442 strcpy(send_this, "/help");
445 if (havebstr("list_button")) {
446 strcpy(send_this, "/who");
449 if (havebstr("exit_button")) {
450 strcpy(send_this, "/quit");
453 if (setup_chat_socket() != 0) {
454 wprintf(_("An error occurred while setting up the chat socket."));
455 wprintf("</BODY></HTML>\n");
460 /** Temporarily swap the serv and chat sockets during chat talk */
462 WC->serv_sock = WC->chat_sock;
465 while (!IsEmptyStr(send_this)) {
466 if (strlen(send_this) < 67) {
467 serv_puts(send_this);
468 strcpy(send_this, "");
471 for (i=55; i<67; ++i) {
472 if (send_this[i] == ' ') break;
474 strncpy(buf, send_this, i);
476 strcpy(send_this, &send_this[i]);
481 /** Unswap the sockets. */
483 WC->serv_sock = WC->chat_sock;
486 wprintf("<FORM METHOD=\"POST\" action=\"chat_send\" NAME=\"chatsendform\">\n");
487 wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
488 wprintf("<INPUT TYPE=\"text\" SIZE=\"80\" MAXLENGTH=\"%d\" "
489 "NAME=\"send_this\">\n", SIZ-10);
491 wprintf("<INPUT TYPE=\"submit\" NAME=\"send_button\" VALUE=\"%s\">\n", _("Send"));
492 wprintf("<INPUT TYPE=\"submit\" NAME=\"help_button\" VALUE=\"%s\">\n", _("Help"));
493 wprintf("<INPUT TYPE=\"submit\" NAME=\"list_button\" VALUE=\"%s\">\n", _("List users"));
494 wprintf("<INPUT TYPE=\"submit\" NAME=\"exit_button\" VALUE=\"%s\">\n", _("Exit"));
495 wprintf("</FORM>\n");
497 wprintf("</BODY></HTML>\n");
505 WebcitAddUrlHandler(HKEY("display_page"), display_page, 0);
506 WebcitAddUrlHandler(HKEY("page_user"), page_user, 0);
507 WebcitAddUrlHandler(HKEY("chat"), do_chat, 0);
508 WebcitAddUrlHandler(HKEY("chat_recv"), chat_recv, 0);
509 WebcitAddUrlHandler(HKEY("chat_send"), chat_send, 0);