webcit/messages.c

   1
   2 #include <ctype.h>
   3 #include <stdlib.h>
   4 #include <unistd.h>
   5 #include <stdio.h>
   6 #include <fcntl.h>
   7 #include <signal.h>
   8 #include <sys/types.h>
   9 #include <sys/wait.h>
  10 #include <sys/socket.h>
  11 #include <limits.h>
  12 #include <netinet/in.h>
  13 #include <netdb.h>
  14 #include <string.h>
  15 #include <pwd.h>
  16 #include <errno.h>
  17 #include <stdarg.h>
  18 #include <pthread.h>
  19 #include <signal.h>
  20 #include "webcit.h"
  21
  22
  23
  24
  25
  26 /*
  27  * Look for URL's embedded in a buffer and make them linkable.  We use a
  28  * target window in order to keep the BBS session in its own window.
  29  */
  30 void url(buf)
  31 char buf[];
  32 {
  33
  34         int pos;
  35         int start, end;
  36         char ench;
  37         char urlbuf[256];
  38         char outbuf[1024];
  39
  40         start = (-1);
  41         end = strlen(buf);
  42         ench = 0;
  43
  44         for (pos = 0; pos < strlen(buf); ++pos) {
  45                 if (!strncasecmp(&buf[pos], "http://", 7))
  46                         start = pos;
  47                 if (!strncasecmp(&buf[pos], "ftp://", 6))
  48                         start = pos;
  49         }
  50
  51         if (start < 0)
  52                 return;
  53
  54         if ((start > 0) && (buf[start - 1] == '<'))
  55                 ench = '>';
  56         if ((start > 0) && (buf[start - 1] == '['))
  57                 ench = ']';
  58         if ((start > 0) && (buf[start - 1] == '('))
  59                 ench = ')';
  60         if ((start > 0) && (buf[start - 1] == '{'))
  61                 ench = '}';
  62
  63         for (pos = strlen(buf); pos > start; --pos) {
  64                 if ((buf[pos] == ' ') || (buf[pos] == ench))
  65                         end = pos;
  66         }
  67
  68         strncpy(urlbuf, &buf[start], end - start);
  69         urlbuf[end - start] = 0;
  70
  71
  72         strncpy(outbuf, buf, start);
  73         sprintf(&outbuf[start], "%cA HREF=%c%s%c TARGET=%c%s%c%c%s%c/A%c",
  74                 LB, QU, urlbuf, QU, QU, TARGET, QU, RB, urlbuf, LB, RB);
  75         strcat(outbuf, &buf[end]);
  76         if ( strlen(outbuf) < 250 )
  77                 strcpy(buf, outbuf);
  78 }
  79
  80
  81 void read_message(long msgnum, int is_summary) {
  82         char buf[256];
  83         char m_subject[256];
  84         char from[256];
  85         char node[256];
  86         char rfca[256];
  87         char reply_to[512];
  88         char now[256];
  89         int format_type = 0;
  90         int nhdr = 0;
  91         int bq = 0;
  92
  93         strcpy(from, "");
  94         strcpy(node, "");
  95         strcpy(rfca, "");
  96         strcpy(reply_to, "");
  97
  98         sprintf(buf, "MSG0 %ld", msgnum);
  99         serv_puts(buf);
 100         serv_gets(buf);
 101         if (buf[0] != '1') {
 102                 wprintf("<STRONG>ERROR:</STRONG> %s<BR>\n", &buf[4]);
 103                 return;
 104         }
 105         wprintf("<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=1 BGCOLOR=000077><TR><TD>\n");
 106         wprintf("<FONT ");
 107         if (!is_summary) wprintf("SIZE=+1 ");
 108         wprintf("COLOR=\"FFFF00\"> ");
 109         strcpy(m_subject, "");
 110
 111         while (serv_gets(buf), strncasecmp(buf, "text", 4)) {
 112                 if (!strncasecmp(buf, "nhdr=yes", 8))
 113                         nhdr = 1;
 114                 if (nhdr == 1)
 115                         buf[0] = '_';
 116                 if (!strncasecmp(buf, "type=", 5))
 117                         format_type = atoi(&buf[5]);
 118                 if (!strncasecmp(buf, "from=", 5)) {
 119                         strcpy(from, &buf[5]);
 120                         wprintf("from ");
 121                         escputs(from);
 122                         wprintf(" ");
 123                 }
 124                 if (!strncasecmp(buf, "subj=", 5))
 125                         strcpy(m_subject, &buf[5]);
 126                 if ((!strncasecmp(buf, "hnod=", 5))
 127                     && (strcasecmp(&buf[5], serv_info.serv_humannode)))
 128                         wprintf("(%s) ", &buf[5]);
 129                 if ((!strncasecmp(buf, "room=", 5))
 130                     && (strcasecmp(&buf[5], WC->wc_roomname)))
 131                         wprintf("in %s> ", &buf[5]);
 132                 if (!strncasecmp(buf, "rfca=", 5)) {
 133                         strcpy(rfca, &buf[5]);
 134                         wprintf("&lt;");
 135                         escputs(rfca);
 136                         wprintf("&gt; ");
 137                 }
 138
 139                 if (!strncasecmp(buf, "node=", 5)) {
 140                         if ( ((WC->room_flags & QR_NETWORK)
 141                         || ((strcasecmp(&buf[5], serv_info.serv_nodename)
 142                         && (strcasecmp(&buf[5], serv_info.serv_fqdn)))))
 143                         && (strlen(rfca)==0)
 144                         ) {
 145                                 wprintf("@%s ", &buf[5]);
 146                         }
 147                 }
 148                 if (!strncasecmp(buf, "rcpt=", 5))
 149                         wprintf("to %s ", &buf[5]);
 150                 if (!strncasecmp(buf, "time=", 5)) {
 151                         fmt_date(now, atol(&buf[5]));
 152                         wprintf("%s ", now);
 153                 }
 154         }
 155
 156
 157         /* Generate a reply-to address */
 158         if (strlen(rfca) > 0) {
 159                 strcpy(reply_to, rfca);
 160         }
 161         else {
 162                 if (strlen(node) > 0) {
 163                         snprintf(reply_to, sizeof(reply_to), "%s @ %s",
 164                                 from, node);
 165                 }
 166                 else {
 167                         snprintf(reply_to, sizeof(reply_to), "%s", from);
 168                 }
 169         }
 170
 171         if (nhdr == 1)
 172                 wprintf("****");
 173         wprintf("</FONT></TD>");
 174
 175         /* begin right-hand toolbar */
 176         wprintf("<TD ALIGN=RIGHT>\n"
 177                 "<TABLE BORDER=0><TR>\n");
 178
 179         if (is_summary) {
 180                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 181                         "<A HREF=\"/readfwd?startmsg=%ld", msgnum);
 182                 wprintf("&maxmsgs=1&summary=0\">Read</A>"
 183                         "</TD>\n", msgnum);
 184         }
 185
 186         wprintf("<TD BGCOLOR=\"AAAADD\">"
 187                 "<A HREF=\"/display_enter?recp=");
 188         urlescputs(reply_to);
 189         wprintf("\">Reply</A>"
 190                 "</TD>\n", msgnum);
 191
 192         if (WC->is_room_aide) {
 193                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 194                         "<A HREF=\"/confirm_move_msg"
 195                         "&msgid=%ld"
 196                         "\">Move</A>"
 197                         "</TD>\n", msgnum);
 198
 199                 wprintf("<TD BGCOLOR=\"AAAADD\">"
 200                         "<A HREF=\"/confirm_delete_msg"
 201                         "&msgid=%ld"
 202                         "\">Del</A>"
 203                         "</TD>\n", msgnum);
 204
 205         }
 206
 207         wprintf("</TR></TABLE>\n"
 208                 "</TD>\n");
 209
 210         /* end right-hand toolbar */
 211
 212
 213         if (strlen(m_subject) > 0) {
 214                 wprintf("<TR><TD><FONT COLOR=\"FFFFFF\">"
 215                         "Subject: %s</FONT>"
 216                         "</TD><TD>&nbsp;</TD></TR>\n", m_subject);
 217         }
 218
 219         wprintf("</TR></TABLE>\n");
 220
 221         if (is_summary) {
 222                 while (serv_gets(buf), strcmp(buf, "000")) ;
 223                 return;
 224         }
 225
 226         if (format_type == 0) {
 227                 fmout(NULL);
 228         } else {
 229                 while (serv_gets(buf), strcmp(buf, "000")) {
 230                         while ((strlen(buf) > 0) && (isspace(buf[strlen(buf) - 1])))
 231                                 buf[strlen(buf) - 1] = 0;
 232                         if ((bq == 0) &&
 233                             ((!strncmp(buf, ">", 1)) || (!strncmp(buf, " >", 2)) || (!strncmp(buf, " :-)", 4)))) {
 234                                 wprintf("<FONT COLOR=\"000044\"><I>");
 235                                 bq = 1;
 236                         } else if ((bq == 1) &&
 237                                    (strncmp(buf, ">", 1)) && (strncmp(buf, " >", 2)) && (strncmp(buf, " :-)", 4))) {
 238                                 wprintf("</FONT></I>");
 239                                 bq = 0;
 240                         }
 241                         wprintf("<TT>");
 242                         url(buf);
 243                         escputs(buf);
 244                         wprintf("</TT><BR>\n");
 245                 }
 246         }
 247         wprintf("</I><BR>");
 248 }
 249
 250
 251
 252 /*
 253  * load message pointers from the server
 254  */
 255 int load_msg_ptrs(servcmd)
 256 char *servcmd;
 257 {
 258         char buf[256];
 259         int nummsgs;
 260
 261         nummsgs = 0;
 262         serv_puts(servcmd);
 263         serv_gets(buf);
 264         if (buf[0] != '1') {
 265                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 266                 return (nummsgs);
 267         }
 268         while (serv_gets(buf), strcmp(buf, "000")) {
 269                 WC->msgarr[nummsgs] = atol(buf);
 270                 ++nummsgs;
 271         }
 272         return (nummsgs);
 273 }
 274
 275
 276 /*
 277  * command loop for reading messages
 278  */
 279 void readloop(char *oper)
 280 {
 281         char cmd[256];
 282         int a;
 283         int nummsgs;
 284         long startmsg;
 285         int maxmsgs;
 286         int num_displayed = 0;
 287         int is_summary = 0;
 288         int remaining_messages;
 289
 290         startmsg = atol(bstr("startmsg"));
 291         maxmsgs = atoi(bstr("maxmsgs"));
 292         is_summary = atoi(bstr("summary"));
 293         if (maxmsgs == 0) maxmsgs = 20;
 294
 295         output_headers(1);
 296
 297         /* wprintf("<CENTER><B>%s - ",
 298                 WC->wc_roomname); */
 299         if (!strcmp(oper, "readnew")) {
 300                 strcpy(cmd, "MSGS NEW");
 301                 /* wprintf("new messages"); */
 302         } else if (!strcmp(oper, "readold")) {
 303                 strcpy(cmd, "MSGS OLD");
 304                 /* wprintf("old messages"); */
 305         } else {
 306                 strcpy(cmd, "MSGS ALL");
 307                 /* wprintf("all messages"); */
 308         }
 309         /* wprintf("</B></CENTER><BR>\n"); */
 310
 311         nummsgs = load_msg_ptrs(cmd);
 312         if (nummsgs == 0) {
 313                 if (!strcmp(oper, "readnew")) {
 314                         wprintf("<EM>No new messages in this room.</EM>\n");
 315                 } else if (!strcmp(oper, "readold")) {
 316                         wprintf("<EM>No old messages in this room.</EM>\n");
 317                 } else {
 318                         wprintf("<EM>This room is empty.</EM>\n");
 319                 }
 320                 goto DONE;
 321         }
 322
 323         remaining_messages = 0;
 324         for (a = 0; a < nummsgs; ++a) {
 325                 if (WC->msgarr[a] >= startmsg) {
 326                         ++remaining_messages;
 327                 }
 328         }
 329
 330
 331
 332         for (a = 0; a < nummsgs; ++a) {
 333                 if (WC->msgarr[a] >= startmsg) {
 334
 335                         read_message(WC->msgarr[a], is_summary);
 336                         if (is_summary) wprintf("<BR>");
 337
 338                         ++num_displayed;
 339                         --remaining_messages;
 340
 341                         if ( (num_displayed >= maxmsgs) && (a < nummsgs) ) {
 342                                 wprintf("<CENTER><FONT SIZE=+1>"
 343                                         "There are %d more messages here."
 344                                         "&nbsp;&nbsp;&nbsp;</FONT>",
 345                                         remaining_messages);
 346                                 wprintf("<A HREF=\"/readfwd?startmsg=%ld"
 347                                         "&maxmsgs=999999&summary=%d\">"
 348                                         "Read them ALL"
 349                                         "</A>&nbsp;&nbsp;&nbsp;",
 350                                         WC->msgarr[a+1], is_summary);
 351                                 wprintf("<A HREF=\"/readfwd?startmsg=%ld"
 352                                         "&maxmsgs=%d&summary=%d\">"
 353                                         "Read next %d"
 354                                         "</A>",
 355                                         WC->msgarr[a+1], maxmsgs,
 356                                         is_summary, maxmsgs);
 357                                 wprintf("</CENTER><HR>\n");
 358                                 goto DONE;
 359                         }
 360                 }
 361         }
 362
 363 DONE:   wDumpContent(1);
 364 }
 365
 366
 367
 368
 369 /*
 370  * Post message (or don't post message)
 371  *
 372  * Note regarding the "dont_post" variable:
 373  * A random value (actually, it's just a timestamp) is inserted as a hidden
 374  * field called "postseq" when the display_enter page is generated.  This
 375  * value is checked when posting, using the static variable dont_post.  If a
 376  * user attempts to post twice using the same dont_post value, the message is
 377  * discarded.  This prevents the accidental double-saving of the same message
 378  * if the user happens to click the browser "back" button.
 379  */
 380 void post_message(void)
 381 {
 382         char buf[256];
 383         static long dont_post = (-1L);
 384
 385         output_headers(1);
 386
 387         wprintf("<FONT FACE=\"Arial,Helvetica,sans-serif\">");
 388         strcpy(buf, bstr("sc"));
 389         if (strcasecmp(buf, "Save message")) {
 390                 wprintf("Cancelled.  Message was not posted.<BR>\n");
 391         } else if (atol(bstr("postseq")) == dont_post) {
 392                 wprintf("Automatically cancelled because you have already "
 393                         "saved this message.<BR>\n");
 394         } else {
 395                 sprintf(buf, "ENT0 1|%s|0|0", bstr("recp"));
 396                 serv_puts(buf);
 397                 serv_gets(buf);
 398                 if (buf[0] == '4') {
 399                         text_to_server(bstr("msgtext"));
 400                         serv_puts("000");
 401                         wprintf("Message has been posted.<BR>\n");
 402                         dont_post = atol(bstr("postseq"));
 403                 } else {
 404                         wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 405                 }
 406         }
 407
 408         wDumpContent(1);
 409 }
 410
 411
 412
 413
 414
 415
 416
 417
 418 /*
 419  * prompt for a recipient (to be called from display_enter() only)
 420  */
 421 void prompt_for_recipient()
 422 {
 423
 424         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=007700><TR><TD>");
 425         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 426         wprintf("<B>Send private e-mail</B>\n");
 427         wprintf("</FONT></TD></TR></TABLE>\n");
 428
 429         wprintf("<CENTER>");
 430         wprintf("<FORM METHOD=\"POST\" ACTION=\"/display_enter\">\n");
 431         wprintf("Enter recipient: ");
 432         wprintf("<INPUT TYPE=\"text\" NAME=\"recp\" MAXLENGTH=\"64\"><BR>\n");
 433         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Enter message\">");
 434         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
 435         wprintf("</FORM></CENTER>\n");
 436 }
 437
 438
 439
 440 /*
 441  * display the message entry screen
 442  */
 443 void display_enter(void)
 444 {
 445         char buf[256];
 446         long now;
 447         struct tm *tm;
 448
 449         output_headers(1);
 450
 451         wprintf("<FACE=\"Arial,Helvetica,sans-serif\">");
 452
 453         sprintf(buf, "ENT0 0|%s|0|0", bstr("recp"));
 454         serv_puts(buf);
 455         serv_gets(buf);
 456
 457         if (!strncmp(buf, "570", 3)) {
 458                 if (strlen(bstr("recp")) > 0) {
 459                         wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 460                 }
 461                 prompt_for_recipient();
 462                 goto DONE;
 463         }
 464         if (buf[0] != '2') {
 465                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 466                 goto DONE;
 467         }
 468
 469         now = time(NULL);
 470         tm = (struct tm *) localtime(&now);
 471         strcpy(buf, (char *) asctime(tm));
 472         buf[strlen(buf) - 1] = 0;
 473         strcpy(&buf[16], &buf[19]);
 474         wprintf("</CENTER><FONT COLOR=\"440000\"><B> %s ", &buf[4]);
 475         wprintf("from %s ", WC->wc_username);
 476         if (strlen(bstr("recp")) > 0)
 477                 wprintf("to %s ", bstr("recp"));
 478         wprintf("in %s&gt; ", WC->wc_roomname);
 479         wprintf("</B></FONT><BR><CENTER>\n");
 480
 481         wprintf("<FORM METHOD=\"POST\" ACTION=\"/post\">\n");
 482         wprintf("<INPUT TYPE=\"hidden\" NAME=\"recp\" VALUE=\"%s\">\n",
 483                 bstr("recp"));
 484         wprintf("<INPUT TYPE=\"hidden\" NAME=\"postseq\" VALUE=\"%ld\">\n",
 485                 now);
 486         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Save message\">"
 487                 "<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\"><BR>\n");
 488
 489         wprintf("<TEXTAREA NAME=\"msgtext\" wrap=soft ROWS=30 COLS=80 "
 490                 "WIDTH=80></TEXTAREA><P>\n");
 491
 492         wprintf("</FORM></CENTER>\n");
 493 DONE:   wDumpContent(1);
 494         wprintf("</FONT>");
 495 }
 496
 497
 498
 499
 500
 501
 502
 503 /*
 504  * Confirm deletion of a message
 505  */
 506 void confirm_delete_msg(void)
 507 {
 508         long msgid;
 509
 510         msgid = atol(bstr("msgid"));
 511
 512         output_headers(1);
 513
 514         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 515         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 516         wprintf("<B>Confirm deletion of message</B>\n");
 517         wprintf("</FONT></TD></TR></TABLE>\n");
 518
 519         wprintf("<CENTER>");
 520
 521         wprintf("Are you sure you want to delete this message? <BR>\n");
 522
 523         wprintf("<FORM METHOD=\"POST\" ACTION=\"/delete_msg\">\n");
 524         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 525                 bstr("msgid"));
 526         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Yes\">");
 527         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"No\">");
 528         wprintf("</FORM></CENTER>\n");
 529
 530         wprintf("</CENTER>\n");
 531         wDumpContent(1);
 532 }
 533
 534
 535
 536 void delete_msg(void)
 537 {
 538         long msgid;
 539         char buf[256];
 540
 541         msgid = atol(bstr("msgid"));
 542
 543         output_headers(1);
 544
 545         if (!strcasecmp(bstr("yesno"), "Yes")) {
 546                 sprintf(buf, "DELE %ld", msgid);
 547                 serv_puts(buf);
 548                 serv_gets(buf);
 549                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 550         } else {
 551                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 552         }
 553
 554         wDumpContent(1);
 555 }
 556
 557
 558
 559
 560 /*
 561  * Confirm move of a message
 562  */
 563 void confirm_move_msg(void)
 564 {
 565         long msgid;
 566         char buf[256];
 567         char targ[256];
 568
 569         msgid = atol(bstr("msgid"));
 570
 571         output_headers(1);
 572
 573         wprintf("<TABLE WIDTH=100% BORDER=0 BGCOLOR=770000><TR><TD>");
 574         wprintf("<FONT SIZE=+1 COLOR=\"FFFFFF\"");
 575         wprintf("<B>Confirm move of message</B>\n");
 576         wprintf("</FONT></TD></TR></TABLE>\n");
 577
 578         wprintf("<CENTER>");
 579
 580         wprintf("Please select the room to which you would like this message moved:<BR>\n");
 581
 582         wprintf("<FORM METHOD=\"POST\" ACTION=\"/move_msg\">\n");
 583         wprintf("<INPUT TYPE=\"hidden\" NAME=\"msgid\" VALUE=\"%s\">\n",
 584                 bstr("msgid"));
 585
 586
 587         wprintf("<SELECT NAME=\"target_room\" SIZE=5>\n");
 588         serv_puts("LKRA");
 589         serv_gets(buf);
 590         if (buf[0] == '1') {
 591                 while (serv_gets(buf), strcmp(buf, "000")) {
 592                         extract(targ, buf, 0);
 593                         wprintf("<OPTION>");
 594                         escputs(targ);
 595                         wprintf("\n");
 596                 }
 597         }
 598         wprintf("</SELECT>\n");
 599         wprintf("<BR>\n");
 600
 601         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Move\">");
 602         wprintf("<INPUT TYPE=\"submit\" NAME=\"yesno\" VALUE=\"Cancel\">");
 603         wprintf("</FORM></CENTER>\n");
 604
 605         wprintf("</CENTER>\n");
 606         wDumpContent(1);
 607 }
 608
 609
 610
 611 void move_msg(void)
 612 {
 613         long msgid;
 614         char buf[256];
 615
 616         msgid = atol(bstr("msgid"));
 617
 618         output_headers(1);
 619
 620         if (!strcasecmp(bstr("yesno"), "Move")) {
 621                 sprintf(buf, "MOVE %ld|%s", msgid, bstr("target_room"));
 622                 serv_puts(buf);
 623                 serv_gets(buf);
 624                 wprintf("<EM>%s</EM><BR>\n", &buf[4]);
 625         } else {
 626                 wprintf("<EM>Message not deleted.</EM><BR>\n");
 627         }
 628
 629         wDumpContent(1);
 630 }
 631
 632
 633