webcit/messages.c

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