webcit/messages.c

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